DANMARKS  STØRSTE  TASTE-IND 


Færdige  programmer  til: 

•  COMMODORE  64/1 28  •  AMSTRAD  •  SPECTRUM 

•  VIC-20  •  COMMC^ORE^-67  +  4 

•  IBM  PC  og  kompatible  *  »V 


AMIGA  •  NEWBRAIN 
TI99/4A  m.ffL 


COMputer 
dribler  med 


COMMODOREN 


COMputer  -  for  DIG  og  din  COMMODORE 


4  Budgetprogrammer 

Kan  du  tjene  penge  med  . 

6  3-dimensionelt  CAD 

Amiga _ 

8  Farezonen 

Commodore  62/128 

10  Vandtårn 

Spectrum _ 

12  Silicon  Adventure 

Amstrad _ 

17  Komplekse  tal 

Newbrain _ 

18  Pladekartotek 

VIC-20 _ 

22  Multiuret 

Commodore  64/128 


24  Mastermind 

ZX81/Lambda/Power/m.fl. 


Kære  computer-ejer! 

Så  er  vi  på  banen  igen.  TAST  nr.  2  er  en  realitet,  vores  første 
nummer  blev  nemlig  så  godt  modtaget  af  dig  og  alle  landets 
andre  data-freaks,  at  vi  har  besluttet  nu  at  udgive  TAST  som 
et  fast  blad,  du  kan  se  frem  til  i  kiosken.  Foreløbig  dog  kun 
hver  tredje  måned,  altså  fire  gange  årligt,  men  på  den  anden 
side:  I  hvert  nummer  af  TAST,  Danmarks  tykkeste  taste-ind 
blad,  er  der  programmer  nok  til  mange  måneders  socialt 
samvær  med  din  ’puter! 

Udvid  din  softwaresamling  med  TAST.  Og  lær  samtidig  nog¬ 
le  af  de  tricks,  der  gør  professionelle  programmører  så 
skrappe. 

TAST  er  dit  programblad!  Kun  med  kvalitetsprogrammer,  der 
alle  er  gennemprøvede  for  fejl  og  klar  til  at  taste  ind. 

Go’  fornøjelse . . .  Rasmus  Kirkegård  Kristiansen, 

Chefredaktør 

25  Afbetaling  6128 

Amstrad  6128 _ 

27  Programpresseren 

Spectrum _ 

28  Mission  Amazonas 

Commodore  Cl  6/+4 _ 

30  Bedste  Linie 

ZX81  m.fl. _ 

31  Space  Attack 

Texas  TI  99/4A _ 

34  Promilletester 

Commodore  64/218 _ 

37  The  Four  Rooms 

Commodore  64/128 _ 

43  Tegn 

Amstrad 


46  Anti-Break 

IBM  oa  kompatible 
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TAST 
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Samtlige  aftrykte  listninger  er 
afprøvede  før  offentliggørelse. 
Forlaget  betaler  skattefrit  op 
til  1 000  kroner  for  godkendte 
læserprogrammer.  Forlaget 
har  ret  til  aftrykte,  godkendte 
programmer  i  bladet  og  må  of¬ 
fentliggøre  dem  på  andre  la¬ 
germedia.  Afsender  garanterer 
for  programmets  originalitet. 

Distribution:  DCA 


TAST  udgives  af  forlaget  "ny  elek¬ 
tronik".  der  også  udgiver  "SOFT", 
"Alt  om  Data",  "COMputer",  'Sven¬ 
ska  COMputer"  og  "ny  elektronik". 
Søsterforlaget  Audio  udgiver  end¬ 
videre  "high  fidelity"  og  HI-FI- 
årbogen. 

TAST  accepterer  listninger  til  alle 
markedets  mikroer,  blot  skal  de 
være  skrevet  i  det  til  maskinen 
mest  benyttede  sprog. 


Hans  Henrik  Bang ,  til  daglig  spil-tester  på 
SOFT,  har  for  en  stund  lagt  joysticket  væk  og 
helliget  sig  sit  ét  og  alt:  Penge. 

Med  et  nyt  budgeprogram  fik  han  styr  på  sin 
privatøkonomi.  Og  det  kom  der  en  underfun¬ 
dig  beretning  ud  af... 


Hvis  du  læste  kæmpetesten  af  de 
to  nye  Amigaer  i  vort  søsterblad 
COMputer,  sad  du  sikkert  og  sav¬ 
lede  over  disse  fede  maskiner  for 
mænd  med  hår  på  brystet.  Efter  et 
lynhurtigt  look  i  sparegrisen  opda¬ 
gede  du  dog  desværre,  atjuleman- 
den  ikke  havde  deponeret  en  stri¬ 
be  'firben'  siden  sidst,  så  hvordan 
skulle  du  nogensinde  få  skrabet 
penge  nok  sammen  til  at  få  dyret 


hjem  på  skrivebordet? 

Så  begyndte  du  sikkert  at  regne, 
og  kom  i  tanker  om.  at  faster 
Agathe  havde  lovet  dig  500  kr.  til 
din  fødselsdag,  og  at  din  ven  Hu¬ 
gurt  skyldte  dig  350  kr.  500  + 
350...  hmm.  hvad  bliver  mon  det? 
Det  er  her.  et  godt  budgetpro¬ 
gram  kommer  ind  i  billedet. 

Det  besluttede  jeg  mig  til  at  kigge 


nærmere  på.  og  svaret  lå  faktisk  li¬ 
ge  rundt  om  hjørnet. 

Jeg  kørte  hen  til  en  af  Københavns 
største  spilpushere.  Mibola  på 
Østerbrogade.  og  bad  om  et  bud¬ 
getprogram.  Ekspedienten  gav  et 
halvkvalt  gisp  fra  sig.  og  de  om¬ 
kringstående  begyndte  at  småfni- 
se  bag  min  ryg.  Mit  ansigt  antog 
en  smårød  kulør,  menjeg  rømme¬ 
de  mig  og  gentog  min  bestilling. 


Efter  at  have  rodet  i  diverse  pap- 
kasser  kunne  ekspedienten  gri¬ 
nende  fremtrylle  et  eksemplar  af 
et  familiebudgetprogram,  som  jeg 
fik  lov  at  låne  et  par  dage. 

Jeg  skyndte  mig  naturligvis  hjem. 
bryggede  et  par  liter  te.  låste  yder¬ 
døren.  tændte  en  smøg  og  gik  i 
krig  med  vidunderet. 


ViziStar-VizaStar 


tCMTll _ 


Lfl 


isex  »  BE 


TUSLITE  SOFTWARE 


p  I 

n 

pw1cS  nB  \l 

h„o,  ^0CtSS°  1 

uft  sonv>^]J 


The  name  of  the  game 

Nu  er  det  vist  på  tide.  at  jeg  fårfor¬ 
klaret,  hvad  der  egentlig  ligger  i 
ordet  budgetprogram.  Det  er 
nemlig  ikke  just  det  samme  som 
det.  der  i  England  hedder  "budget 
games!",  altså  lavprisspil  som  Fire- 
birds  Silverrange  games.  Der  er 
snarere  tale  om  en  hjælpehjeme, 
der  er  betydeligt  bedre  til  at  jong¬ 
lere  med  tal  end  gennemsnits¬ 
danskeren  (mig  inklusive). 


Tur  i  junglen 

Der  findes  et  utal  af  budgetpro¬ 
grammer.  ligefra  de  store  firmaers 
talknusere,  der  beregner  årsresul¬ 
tatet  udfra  oplysninger  om  ind¬ 
tægter.  udgifter,  renter,  svingnin¬ 
ger  i  dollarkursen,  direktørens 
personlighed  (evt.  hans  kones) 
samt  vejrudsigten  gældende  for 
lørdag  og  søndag,  og  så  til  det  lille 
program,  jeg  fik  fingre  i.  Hvis  du 
f.eks.  går  ned  i  døgneren  (compu¬ 
terbutikken  altså)  og  på  dine  græ¬ 
dende  knæ  forklarer,  hvor  meget 
du  ønsker  dig  en  Amiga.  kan  det 
være.  at  de  rare  mennesker  stiller 
dig  et  par  spørgsmål,  fodrer  svare¬ 
ne  ind  i  et  finansieringsprogram 
(der  er  en  særlig  type  budgetpro¬ 
gram).  og  på  et  øjeblik  kan  fortæl¬ 
le  dig.  at  hvis  du  bare  sender  en 
check  på  50  kr.  hver  måned  de 
næste  933  år.  er  vidunderet  dit  til 
evig  arv  og  eje  (efter  de  933  år  alt¬ 
så). 


Ned  på  jorden 

Et  budgetprogram  er  ligså  legen¬ 
de  let  at  beskrive,  som  dobbelthe- 
lixstrukturen  i  et  DNA  molekyle, 
men  der  er  dog  visse  grundprincip¬ 
per.  der  går  igen  i  dem  alle. 

For  nu  at  vende  tilbage  til  Amiga 
eksemplet  fra  første  afsnit,  så 
fortsætter  historien  således. 

Du  anskaffer  dig  et  budgetpro¬ 
gram  (køber  det.  eller  TASTer  det 
ind  fra  et  blad)  og  sætter  dig  godt 
tilrette  med  dine  lønsedler,  for¬ 
skudsopgørelse  og  andet  græsk 
mellem  dig  og  computeren. 

Så  kører  vi 

1  programmet  er  der  sandsynligvis 

2  slags  posteringer:  Månedlige  po¬ 
ster  og  årsposter.  Månedlige  po¬ 
ster  er  alle  de  poster,  der  kan  varie¬ 
re  fra  måned  til  måned,  såsom  løn. 
transportomkostninger  og  rejse¬ 
udgifter.  De  årlige  poster  er  så  na¬ 
turligvis  alt  det.  der  er  fast  hele 
året  igennem,  såsom  bladabonne¬ 
menter.  forsikringer  osv. 

Lad  os  sige.  at  det  er  januar  må¬ 
ned.  Så  starter  du  med  at  fodre  din 
månedlige  indtægt  ind  på  skema¬ 
erne  for  hver  måned.  Det  kan  jo 
tænkes,  at  du  har  et  sommerferie¬ 
job.  hvordu  tjenerflere  penge  end  i 
resten  af  året.  Da  du  har  fødsels¬ 
dag  i  marts  måned,  er  det  her.  du 
skriver  de  500  kr.  fra  faster  Agat- 
he.  samt  hvad  du  ellers  regner  med 
at  indkassere  ved  den  lejlighed. 
Pengene  fra  Hugurt  får  du  nok  ikke 
før  i  august,  så  her  skriver  du  350 
kr.  som  indtægt.  Så  kommer  der 
alle  mulige  småting  såsom  tand- 
lægeregninger  (check  lige  vis¬ 
domstænderne  i  spejlet),  frisør, 
lommepenge,  tipsmillionen  og 
meget  andet.  Hvis  du  betaler  hus¬ 
leje.  kan  du  både  anføre  den  som 
en  månedlig  udgift,  eller  som  en 
enkelt  årspost.  Det  smarteste  er 
dog  at  skrive  den.  hvor  den  forfal¬ 
der.  dvs.  hvert  halve  år.  hver  må¬ 
ned  eller  hvornår  du  nu  skal  punge 
ud.  for  ellers  får  du  ikke  det  rigtige 
balanceresultat  i  løbet  af  året. 


At  gå  på  line 

Balancen  er  simpelthen  et  udtryk 
for.  hvor  mange  penge  du  på  et  gi¬ 
vet  tidspunkt  bør  have  på  bank¬ 
bogen.  Den  kan  du  som  regel  få 
tegnet  en  graf  over.  der  "viser 
vandstanden  i  pengetanken". 

Her  opdager  du  forhåbentlig,  at  du 
i  november  runder  det  magiske 
tal.  der  sætter  dig  i  stand  til  at  kø¬ 
be  Amigaen,  stereoanlægget  eller 
hvad  du  nu  higer  efter.  Hvis  det  er 
tilfældet,  er  det  en  god  ide  at  ind¬ 
føre  den  som  post  med  det  sam¬ 
me.  så  du  ikke  køber  Amigaen  i  no¬ 
vember.  og  i  december  opdager  at 
du  ikke  har  råd  til  den  æske  pa¬ 
pirclips.  som  faster  Agathe  ønsker 
sig  så  brændende  til  jul. 

Lang  ventetid 

Så  kan  du  lagre  hele  molevitten  på 
disk  og  gå  i  gang  med  at  tjene  pen¬ 
ge.  I  løbet  af  året  skal  du  naturlig¬ 
vis  ajourføre  budgettet,  efterhån¬ 
den  som  du  får  overblik  over  de  en¬ 
kelte  posters  størrelse.  Hvis  Hu¬ 
gurt  f.eks.  betaler  dig  50  kr.  i  ren¬ 
te.  ætter  du  posten  i  august  til 
400  kr..  men  får  du  til  gengæld 
kun  en  hjemmestrikket  næsevar- 
mer  af  Agathe.  må  du  helt  slette  de 
500  kr..  med  mindre  du  da  får 
solgt  dette  herlige  instrument  i 
den  blå  avis. 

Det  kan  jo  også  tænkes,  at  Amiga¬ 
en  falder  i  pris.  så  du  allerede  kan 
købe  den  i  oktober.  Igen  skal  du 
ind  og  rette  i  budgettet. 

Medaljens  bagside 

Det  eneste  mit  budgetprogram  ik¬ 
ke  kunne,  var  at  udskrive  1 00-kro- 
nesedler  på  printeren,  så  program 
eller  ej.  du  er  stadig  nødt  til  at  tje¬ 
ne  pengene  selv. 

Det  et  budgetprogram  kan  hjælpe 
dig  med,  er  at  give  dig  overblik 
over  dine  finanser,  og  forhindre 
dig  i  at  bruge  formuer  på  burgere 
og  konkurrerende  computerbla¬ 
de.  Det  er  nemlig  betydeligt  nem¬ 
mere  at  modstå  sådanne  fristel¬ 
ser.  når  du  har  sat  dig  et  mål  og 
ved.  hvor  længe  du  skal  vente,  før 
det  er  nået. 

Som  en  klog  supermarkedsejeren¬ 
gang  sagde:  "Hvad  der  er  sparet,  er 
tjent". 

Hans  Henrik  Bang 

m 


GAMES 


Amiga 

3-DCAD 


Amiga-ejere  ved,  at  deres  com¬ 
puter  er  sagen,  når  det  gælder  gra¬ 
fik.  Men  alligevel  er  det  nok  de  fær¬ 
reste.  der  havde  forestillet  sig.  at 
et  CAD-agtigt  program  kunne 
rummes  på  så  få  linier  som  her. 
Tast  det  ind.  Endnu  en  gang  vil  du 
blive  forbavset  over  din  Amigas 
ydeevne... 


’  3-d  CAD  af  Peter  Dalsgaard 
•TAST  2/B7 


Xl-230 

X2-390 

yl-70 

y2-120 

r-5 

bc-9 

bs-bc/3.2 

pi-22/7 

ha-20 

sek-100 

skl$-”n" 

PALETTE  0,0,0,  .7 
PALETTE  1,0,0, .7 
PALETTE  2, 1,1,1 
COLOR  0 
COLOR  1 
COLOR  2 
U  INDOLI  1 ,  ,  ,  1 
ON  BREAK  GOSUB  Farve 
BREAK  ON 


Begynd : 

CLS 

COLOR  2,0 

LOCATE  13,  17:  INPllT''Ønskes  ny  initialisering:  J/n 
IF  UCASES C JnS)«”N"  THEN 
GOTO  KasseCAD 
ELSE 

GOTO  initialisering 
END  IF 


’ .  JnS 


initialisering: 

CLS 

LOCATE  1 , 10 : PRINT'1  Indtast  dimensioner  paa  kassen. 


LOCATE  3, 10: INPUT"Indtast  x-koordinat  nr.  1  ".xkoorl 

LOCATE  4,10: INPUT” I ndtast  x-koordinat  nr.  2  ”,xkoor2 

LOCATE  5, 10: INPUT”Indtast  y-koordinat  nr.  1  ".ykoorl 

LOCATE  6, 10: INPUT”Indtast  y-koordinat  nr.  2  ",ykoor2 

LOCATE  B, 10: INPUT"Indtast  længde  1-10  ",r  :  h-r 

LOCATE  9, 10: INPUT” Indtast  x-drejning  " , bc 

LOCATE  10, 10: INPUT”Indtast  y-drejning  “ , bs 

LOCATE  12, 10: INPUT”Indtast  rotations-hastighed  ” , ha 
LOCATE  13, 10: I  NPUT” I ndtast  antal  sekvenser  ",sek 

LOCATE  14, 10: INPUT"Ønskes  skjulte  linier  J/n  ”,sklS 


KasseCAD: 

CLS 

FOR  t-1  TO  sek 
FOR  F-l  to  2 

FOR  v-1  TO  3BØ  STEP  ha 
'Sider 

aC 1 )-bc*(r*C0S(v*pi/360) )  :  aCS)— bc»Cr»C0SCv»pi/360) ) 
kC  1  )“bs",(r"SINCv*pl/360)  )  :  kC2J—  bs«Cr»SINC  v»pi/3BØ)  ) 
'Koordinater 

xxl-xl-a(f )+m  :  xx2-x2-aCF)-m 
xx3-xl+aCF)+m  :  xx4-x2+aCF)-m 
yyl-yl+kCF )+m/3.2  :  yy2-y2*kCf )-m/3.2 
yy3”yl-kCF)+m/3.2  :  yy4-y2-kCF3-m/3 .2 
’Tegn  kassen  med  skjulte  linier 
IF  UCASE$Cskl$)_“J”  THEN 

IF  CaCf )/bc)/r>0  AND  CaCf )/bc5/r< 1  AND  F-2  THEN 
ELSE 

LINECxxl , yy 1 5-Cxx3, yy 33 , 2 


S 


GAMES 


END  IF 

IF  CaCf 3/bcl/r>-l  AND  CaCf )/bc}/r<0  AND  f-1  THEN 
ELSE 

LINECxx2, yy21-Cxx4 ,  yy4)  ,  2 
END  IF 

IF  CaCF)/bc)/r>-l  AND  CaCF)/bc)/r<0  AND  F-2  THEN 
ELSE 

LINECxx2,yyl)-Cxx4,yy3) ,2 
END  IF 

IF  CaCF)/bc)/r>0  AND  CaCf )/bc)/r<l  AND  f-1  THEN 
ELSE 

LINECxxl , yy21-Cxx3, yy4) , 2 
END  IF 

LINECxxl, yy 1 )-Cxx2, yy2) , 2 , b 

IF  CaCf )/bc)/r>-l  AND  CaCf )/bc)/r<l  AND  f-1  THEN 
ELSE 


LINECxx3,yy4J-Cxx4,yy4),2 
END  IF 

IF  CaCf )/bcl/r>-l  AND  CaCf )/bcl/r<l  AND  f-2  THEN 
ELSE 

LINECxx3,yy3)-Cxx4,yy3),2 
END  IF 

IF  CaCf )/bc)/r>0  AND  CaCf )/bc)/r<l  THEN 
ELSE 

LINECxxS, yy3)-Cxx3 , yy4) , 2 
END  IF 

IF  CaCf )/bc)/r>-l  AND  CaCf )/bc)/r<0  THEN 


ELSE 

LINECxx4,yy35-Cx4,yy4J,2 
END  IF 
ELSE 

'Tegn  kassen  uden  skjulte  lir 
LINECxxl, yyl)-Cxx3,yy3), 2 
LINECxx2,yy25-Cxx4,yy4),2 
LINECxx2 , yy 1 }-Cxx4 , yy 3 ) , 2 
L I NECxxl , yy2)— Cxx3 , yy4  5 , 2 
LINECxxl, yyl)-Cxx2,yy2), 2, b 
LINECxx3,yy3)-Cxx4,yy4),2,b 
END  IF 
'Slet  kassen 

LINECxxl, yyl)-Cxx3,yy33,0 
LINECxx2,yy23-Cxx4,yy43 ,0 
LINECxx2, yyl)-Cxx4, yy33 , 0 
LINECxxl ,yy2)-Cxx3,yy 45 ,0 
LINECxxl , yy 1 )-Cxx2, yy2)  ,  0,b 
LINECxx3,yy3)-Cxx4,yy4) ,0,b 
NEXT  v 


«P 


Når  du 

(CLR) 


ser 


Betyde 


NEXT  f 
NEXT  t 
GOTO  Begynd 


END 

Farve: 

PALETTE  1,1, 1,1 
COLOR  1,0 
STOP 
RETURN 


(HVID) 
(RØD) 
(CYAN) 
(ULLA) 
(GRØN) 
(BLAA) 
(GUI) 
(ORANGE) 
(BRUN) 
(URØD) 
(GRAA1) 
(GRAA2) 
(UGRØN) 
(UBLM) 
(0RAA3) 
(F1) 

(F2) 

(F3) 

(F4) 

(F5) 

(F6) 

(F7) 

(F8) 


(HOME) 

(CRSR  NED) 
(CRSTOP) 

(CRSR  HØJRE) 

<™***sm, 

(INST) 

(RETURN) 

(SPACE) 

(RCS  ON) 

(RVS  OFF) 

(SORT) 


'r  det 

clear 


fCreen— , 

Home  cursor 
Cursor  ned 
Cursor  0p 
Cursor  højre 
Cursor  venstre 


Du  trykker 


SHI  FT, 


CRSR  OP/ned 
crS7^SR0p/ned 

shS  Søstre 


£?  *5“  inHsZTR  HøjrS^nstre 
Return  INST/DEL 

SS"6"*" 

CTRL  g 
CTRL  o 
CTRL  1 
CTRL  2 
CTRL  3 
CTRL  4 
CTRL  s 
CTRL  6 
CTRL 7 
CTRL  8 

commodore  1 

COMMODORE  2 
COMMODORE  3 
COMMODORE  4 
COMMODORE  2 
COMMODORE  6 
COMMODORE  7 
,  ,  p°MM0°0RE8 

Funktionstast  2  F2 
Funktionstast  3  F3 

Funktionstast  4  F4 

Funktionstasts  « 

Funktionstaste  £ 

unktionstast  7  n 

Funktionstaste  r« 


Space 
Reverse  on 
Reverse  off 
Sort 
Hvid 
Rød 
Cyan 
Lilla 
Grøn 
Blå 
Gul 

Orange 

Brun 

Lyserød 

Grå  i 

Grå  2 

Lysegrøn 

Lyseblå 

Grå  3 

Funktionstast 


I  dette  program  er  det  spøgelser¬ 
ne.  som  har  valgt  at  plage  dig.  De 
angriber  på  en  lumsk  og  nedrig  fa¬ 
con. 

Forsvar  dig  med  din  lanse,  eller  lid  / 
en  frygtelig  død...  j 

Michael  Olsen  / 


;  |  ø  POKE  204ii .  |  S :  pfiKF  204 1.14 

FØR  0=2042  TO  2047 : PQKE  O, 13HIEXT 
1 1 1  POKE  VC  *•27, 255  -  POKE  VC+39, 0 
POKE  VC+40, 12 :  FOR  0=41  TO  46 
• POKE  VC+Ø, 1 : NEMT ; GOTO  1  øøøø 
113  FOR  0-4  TO  14  STEP  2 : POKE  VC+Ø, 85 
: POKE  VC+1'0, 73NEKT 
120  MS C 2 >=240  FOR  ø=3  Tø  7 

: MS<A>=MS<A-  1 >-210 •  JKØ>=28/<255-< 
0*45- 1 00 >  > : HEX  f 

140  PRIMT" CGR002 • HOME) " : FOR  0=1  TO  12 
:  PR  I  HT , , , "  (.  R'v'S  OH  >  rrT~T~" 

: PR I N r , , , "  < CRSR  OP , SPACE , 

RVS  OM  >'T~rT~r<CRSR  0P>  "  :  HEXT 
150  FOR  0=1934  Tf  i  ?ø?3:  POKF  0.1. -.0 
: POKE  SI+O, 12 : HEXT  PR I HT " < HOME > " , , 

.•  " < RVS  OH, CRSR  HøJRE, SPACE, 

CRSR  HøJRE , SPACE , CRSR  HØJRE , SPACE , 
CRSR  HøJRE , SPACE , CRSR  HØJRE , 
SPACE)'' 

160  PRINT, , ,  " (CRSR  Hø.JRE4,SPØCE2, 

CRSR  MED •CRSR  VENSTRES, SPØCE4 , 

CRSR  NET' ,  CRSR  VEM2>TRE4 ,  SPØCE4 , 

RVS  0N>— < RVS  OFF , CRSR  HED, 

CRSR  VENSTRES , SPACE4 > " 


9 : READ  E : POKE  A, E 


READ-  E 
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: FOR  0=20 1 3  TO  2015 ■ POKE  0,32 
17ø  POKE  R+SI  ,  9 1 HEXT :  POKE  2012,223 
.300  TfCl>="  . CRAZV. 

:T  «<?',  =  "  ..SOFT... 

C:ø5  TfC3>="  ..CELLER... 

:  T:f<'5>="  JACOB  SCH 1 ERMACHER  " 

3øG  T$C4)="  MICHAEL  OLSEN 
Slø  POKE  VC+21 , 4 : POKE  VC+1 6, 4 
320  FOR  0=05  TO  3ø  STEP- 1: POKE  VC+4,0 
:  MFXT  '•  POKF  VC+27, ø 

330  FOR  A=3ø  TO  O  STEP- 1- POKE  VC+4..A 
:  ICXT  POKE  VC+ 16  .•  0  •  FOR  0=255  TO  2 
O  STEP- 1  POKE  VC+4,0 
340  HEXT : FOR  A=t  TO  21 

PR I HT "<L. RØD , HOME , CR3R  HED3 > " 

:  FOR  B--J  TO  5:  PR  I  MT  RIGHTfCTfCB), 
0>  HFXT 

350  POKF  VP.+4 , 20+A*8 :  FOR  B-l  TO  80 
: HEXT : HEXT 

360  POKE  VC  *  1 6  .•  248 :  POKE  VC+2 1  .•  255 
4øø  FOR  0=3  TØ  7 -FOR  B=9ø  TO  3ø  STEP 
- 1  :  POKE  VC+2*0  ,  B  HEXT 
POKE  VC+27, MS<0> 

41ø  FOR  B=3ø  TO  O  STEP-1 
: POKE  VC+2+0 , D : HEXT 
:  POKE  VC+ 1 6  ,  MS  -i  O  >  =  D=78 
420  FOR  B=255  TO C  0*45- 1 øø) STEP- 1 
: POKE  VC+2*0 , B : D=D-B C 0  > 

430  POKE  VC+ 1 +2*0 , D • HEXT : HEXT 
44ø  PR I HT"  CRVS  ON) J CRVS  OFF)OVSTIC 
K  ELLER  C RVS  ON) TASTATUR  " 

450  OET  Ri:  IF  PFEK C 563?  1  >  =239  THFM  0 
J" : GOTO  470 

46ø  IF  OiO " J " OND  040 "T "THEN  450 
470  POKE  VC+ 1,221  POKE  VC+3, 221 
: FOR  0=ø  TO  150: POKE  yC,0 
: POKE  VC+2, A; HEXT 

480  FOR  0=188  TO  255: POKE  VC *4,0: HEXT 
POKE  VC+1 6, 4 : FOR  0=0  TO  30 
:  F-OKE  VC+i, 0 :  HEXT 
500  L-4:IF  04="T"THEH  L=1 
2000  PJ=15ø ' SX=PJ : POKE  VC+3©, © : P3=50 
: P4=5ø : P5=5ø : P6=5ø : P7=5ø 
:  TI ? -"000000" : C-0 
2ølø  POKE  VC, PJ : POKE  VC+1, 221 
: POKE  VC* 2 , PJ : POKE  VC+3 , 22 1 
: POKF  VC+27 . 255 
2020  PR I NT " C  HOME , L .  BLAO > " 

■FOR  0=1  TO  15: PRINT" 

" , : HEXT 

2500  ,T=PEEK<56321)  ;  IF<:j  OND  3>=ø  THE 
H  PJ=PJ+lø. 6+C 

2501  IFC  J  OND  L >  =ø  THEN  PJ--PJ-10.6-C 

2502  IFCJ  OND  1. 6 >  =0  ANTi  OSU<T=ø  OND  S 
V=221  THEN  SW- 1 

2503  IF  SM>0  THEN  SV=8V- 1 6  =  5W=SM- . ØS 

2504  I.F  SHOø  THEN  SW=ø :  SV=22 1  SX=PJ 
2506  OET  04 :  IF  05X"V"THEH  GOTO  2512 
251ø  GOTO  2510 

2512  TF  P J>236  OP  PJC24  THEN  5000 
25J.3  POKF  53243  .  ftV  :  POKF  53270.0 
:POKE  53243,  SX-- POKE  53250, PJ 
•c=r+.ni5 

2514  SC=PEEK< 53278 >  IF<SC  OND  S>=3  T 
HEN  03=40 : SW=0 

25 1 5  P3=P3+ 1 . 6+C : POKE  53255 , P3 

IF  P3>=2øø  THEN  0=3: GOTO  6000 

2516  IF  CSC  OND  16)= 16  THFM  P4=4ø 
:  SW=ø 

2517  P4 =P4+ 1 . 3 *  C : POKE  53257, P4 

: IF  P4>=20ø  THEN  0=4  GOTO  6øøø 


2513  IFCSC  OND  32) =32  THEN  P3=40 : SW=ø 

25 1 9  P5=P5+2 . O +C : POKE  53259 , P5 

: IF  P5>=20ø  THEN  0=5 : GOTO  6øøø 

2520  IFCSC  HND  64 >=64  THEN  P6=4ø:SU=ø 

252 1  P6=P6+ 1 . 6+C • POKE  5326 1 , P6 

: IF  P6>=2øø  THEN  0=6 : GOTO  Gøøø 

2522  IFCSC  OND  123) =123  THEN  P7=4ø 
:  SH=ø 

2523  P7=P7  *  1 . 2  *-C :  POKE  53263 ,  P7 

: IF  P7>=200  THEN  0=7 : GOTO  6000 

2524  PR I NT " C  HOME > " , M IB*  C  T 1 4 , 4 . 1 >  :  " 

: " R I GHT$ C  T 1 1 , 2  > : GOTO  2500 

5000  IF  PJ<24  THEM  PJ=24 : GOTO  2513 
5610  T$=TI$ : PRINT" CL. RØD, CRSR  NEB3, 
SPACE4 > DU  ER  DRUKNET! 

502©  POKE  VC+1, 221: FOR  0=237  TO  255 
pøKl:  VC *2 , 0  •  POKF  VC ,  o :  MFXT 
5ø3ø  FOR  0=23!  TO  355 : POKF  VC*3,0 
: POKE  VC  *  1 , 0 : HEXT 
5040  PU=VAL C M J  Df C T f , 3 , 

2) )*6ø+V0LCRIGHT*CT*,2) ) 

5050  PR  TNT, " C CRSR  NED 3 , 

CRSR  VENSTRE) BU  NAR  HOLDT  UD  I  " 

: PR I HT , PH " SEKUNDER " 

■Ti *60  TI$="  øøøøøø  " 

•-.CiSS  PPTMT"  AAMMFI  RECORD 

'  " HI  "SEKUNDER"  :  IF  HOH1  THEN  HI  = 
PU 

5090  HA IT  56321, 16, 127: FOR  0=3  TO  7 
POKE  VC  +2*0 , 0*45- 1 00 
: POKE  VC+2*0+ 1 , 23 = HEXT 
5 1 Oø  POKE  VC , 1 5ø : POKE  VC+ 1 , 22 1 
: POKE  VC+2 1 , 255 : POKE+2 . 1 5« 

: POKF  VC+3, 221 : SV=22 1 : SN=0 
5110  FOR  0=1  TO  1500 : HEXT : GOTO  2000 
6øøø  Tf=TIf : P=PEEKCVC+0*2) ; POKE  VC,PJ 
:POKE  VC+1, 221  FOR  B=202  TO  221 
:pOKE  VC+fl*2+ 1 , B 

6ølø  HEXT :  RG---1  :  IF  PJ>P  THEN  RG=1 
603‘fi  F-nKF  VC+0*?,P 
6030  IF  POINTCPDTNEN.  P=P+RO 
-GOTO  6020 

6040  P-P+2  POKE  VC-t0*2,P  P0KE  VC+2,P 
■POKE  VC , P 

6050  IF  PC254  THFH  6040 
6060  PRINT" CL. ROD, CRSR  HED2 , 

SPACE > SPØGELSET  HOR  DRUKNET  DIG! 

" : GOTO  5ø2ø 

løøOO  POKE  VC+21, l 5: POKE  VC+23, 15  - 
:POKE  VC+29,15 

løølø  POKE  VC, 40  POKE  VC+1, 208 
: POKE  VC+2, 40 : POKE  VC*3,2øS 
: POKE  VC+6, 30 : POKE  VC+7,50 
10020  POKE  VC+ 1 6 , 4 : POKE  VC<4,2© 

:  POKE  VC+5  ■  5‘* 

(0030  PRINT  "C CRSR  NED, 

SPACE7)S  P  O  G  E  L  S  E  S  J  O  G  T" 
løø4ø  PRINT" C CRSR  HED4 ) " 

10090  PRINT"  BRUG  :  TEST  1 »VENSTRE 
2=H0JRE  C CRSR  HED, 

SP0CE4 ) SPOCE=KOST  SPVD " 
løllø  PRINT"  C  CRSR  NED .  SP0CF2>FI.  LER 
:  JOVSTICK  PORT  1  " 

1.0140  PRINT  "C  CRSR  NED4, 

SPACE2 )  TRVK  EN  TAST . " 

10150  OET  Af :  IF  Of  ="  "THEN  10150 
1 0 1 60  PR I NT  CHRf C 1 42  > ; " C  CLR ) " 

: POKE  VC* 23 , O : POKE  VC+29 , O 
: POKE  VC+2 l,ø: POKE  VC , © 

:PØKF  yr+3,0 
10170  GOTO  .!  13 
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Amstrad 

The  Silicon 
Adventure 


En  løbsk  computer  har 
forbindelse  til  den  an¬ 
den  side  afjemtæppet. 
Din  mission:  Afbryd 
den  inden  det  er  for 
sentl 

I  ministeriet,  hvor 
computeren  står.  skal 
du  forcere  vagter  med 
hunde.  De  udgør  en 
trussel,  for  de  kender 
ikke  dit  job  -  de  har 
ordre  på  at  standse  al¬ 
le  fremmede,  der 
trænger  ind. 

Ved  hjælp  af  din  termi¬ 
nal  og  din  PC  kan  du  få 
flere  oplysninger,  men 
det  er  ikke  strengt 
nødvendigt.  "The  Sili¬ 
con  Adventure’  gen¬ 
kender  følgende  ord: 
N.  Nord.  S.  Syd.  0.  Øst. 
V.  Vest.  Tag.  Læg. 
Smid.  Kast.  Skyd.  Ind¬ 
sæt.  Drej.  Angrib.  Til¬ 
slut.  Tænd.  Sluk.  Åbn. 
Åben.  Luk.  Lås.  Lav. 
Skriv.  Kald.  Hjælp.  Lis¬ 
te. 

Det  er  danske  karakte¬ 
rer  på  tastaturet.  De 
ligger  på  de  to  firkan¬ 
tede  parentser  samt 
på  skråstregen.  Held 
og  lykke.  Du  får  brug 
fordet.Amstrad-ejer... 

Peter  Konner 


1 O  ’ ************************************************************************** 
20  ’**  SILICON-ADVENTURE,  by  Peter  Konner  ** 

30  ’ **  ** 

AO  ’*********************)«********#****************************************** 
50  MODE  1 : GOSUB  1920 

60  DIM  1*(60) , t*<22) , tn*<22) ,  kort%<60,4>  , i% (22) , xS ( 19) , p% (60 , 22) 

70  PRINT "  Velkommen  til" 

80  PRINT"  SILICON-ADVENTURE  !!“ 

90  PRINT : PRINT"  <c>  Peter  Konner,  September  1985“ 

100  PRINT:  PRINT"Du  er  blevet  udpeget  af  efterretnings-  tjenesten  til  at  stoppe 
den  lAbske  hovedcomputer  i  et  ministerium,  da  den  sender  i  n-f  ormat  ioner  til 

en  computer  pø  den  anden  side  a-f  jerntÆppet." 

110  PRINT:PRINT"Der  er  blot  to  ulemper:  Selve  opgaven  er  sø  hemmelig,  at  ikke 
engang  vagt-  mÆndende  i  huset  ved  noget  om  den,  “ 

120  PRIMT"og  du  kender  ikke  stedet,  da  du  aldrig  har  vÆret  der  f Ar ! ! " 

130  PRINT: PRINT"  Tryk  pø  en  tast!" 

140  CALL  (8iBB18) 

H 

160  w*="Hvad  nu  “: q*= "Hunden  er  hurtigere  end  dig  og  bider  sig  godt  -fast  i  di 
n  hals.  Det  ser  vist  ud  som  om  du  er  dAd ! ! “ 

170  r$="En  vagt  kammer  ud  fra  sit  vagtrum  da  hanser  din  tÆndte  lygte  og  skyder  d 
i  g  ned  med  et  stort  jagtgevÆr!  !“ :s*="En  vagt  rejser  sig  da  du  kommer  ind  i  lo 
kalet  og  skyder  dig  beslutsomt  ned  medet  stort  jagtgevÆr!!" 

180  FOR  x=l  TO  56 : READ  1 %, 1  * ( 1 %) : FOR  y=l  TO  4 : READ  kor t% ( 1%. y ) : NEXT  y : NEXT  x 

190  FOR  x=l  TO  20:  READ  t%,  1  %,  t*  ( t%>  ,  t  r.*  ( t%>  :  p%  (  1  %,  t%>  =1 :  NEXT  x 

200  FOR  x=l  TO  19 : READ  x*(x):NEXT  x 

210  DATA  l,i  en  mArk  forhal  i  ministeriet.  Mod  syd  kan  du  hAre  underl igelyde  og 

franord  kommer  der  et  svagt  lys.  Der  er  en  dAr  mod  vest . , 2, 60 , 0, 3 

220  DATA  21, i  det  nord-vestlige  hjArne  af  en  stor  f abr i kshal . , 0, 14 , 20, 0, 15, i  d 
en  sydlige  ende  af  fabriks-  hallen.  Mod  syd  er  der  et  lille  rum.  Hallen  syne 
s  meget  stor  og  truende !, 20, 16 , 17, 14 

230  DATA  32, foran  en  indgang  mod  nord  i  en  bred  gang. , 33, 30 , 0 , 0 

240  DATA  20, syd  for  en  gang  i  den  nordlige  del  af  en  f abr i kshal . PØ  et  bord  ved 
siden  af  dig  stør  en  stor  EPROM-brÆnder , 23, 15, 19, 21 
250  DATA  16, midt  i  et  lille  depot.  Alle  hylder  er  fyldt  med  store  tunge 

i nstrumenter . , 15, 0, 0, 0, 17, i  den  syd-Astlige  ende  af  en  stor  fabrikshal.  D 
er  er  en  dAr  mod  syd . , 19, 0, 0, 15 

260  DATA  23, i  den  Astlige  ende  af  en  lille  gang  med  mange  dAre.  Fra  nord  kommer 
et  skarpt  lys. , 25, 20, 24 , 26 

270  DATA  25, i  et  kraftigt  oplyst  vÆrksted.  Lyset  kommer  fra  en  lampe  over  et  li 
Ile  arbejdsbord  hvorpØ  der  stør  en  stor  1  oddestat  ion ., 0, 23, 0, 0 

280  DATA  24, i  et  stort  kontor  med  et  tykt  tÆppe  pø  gulvet.  I  hjArnet  stør  et 
sofabord  og  to  sto 1 e . , 0, 0 , 0, 23 

290  DATA  26, midt  i  en  lille  Ast-vest  gang  med  mange  dAre . , 27 , 0, 23, 28 , 31 , i  et  d 
unkelt  omk lÆdn i ngsrum. ,0,0,30,0 

300  DATA  19, her  i  det  nord-Astlige  hjArne  af  fabrikshal  len.  Der  er  nÆsten  ingen 
maskiner.  Mod  Ast  er  der  en  kort  gang. , 0, 17, 22, 20, 22. i  et  stort  laboratorium 
fyldt  med  glas  og  kolber  med  en  masse  vÆsker . , 0, 0, 0, 19 
310  DATA  52, i  et  stort  rum  nord  for  mini-  steriets  hovedcomoutere .  En  svag  bri 
se  blÆser  dig  i  ans i gtet . , 51 , 53, 0 , 0, 54 ,mi d t  i  en  gang. , 55, 0, 56, 51 , 55, pø  et  stor 
t  depot  med  en  masse  komponenter ., 0, 54 , 0, 0 

320  DATA  53, ved  selve  hovedcomputeren.  Storevent  i  1  atorer  i  loftet  kArer  uafbrudt 
.PØ  siden  af  computeren  er  en  lille  por t . , 52, 0, 0 , 0, 58, i  en  lille  kantine  med  man 
ge  borde  og  sto 1 e . , 0 , 0, 0 , 56 

330  DATA  56, i  Ast-enden  af  en  gang.  Der  er  dAre  til  alle  s  i  der . , 57 , 59, 58 , 54 , 59 , 
i  et  lille  og  snusket  depot  med  elektroniske  r eservede 1 e . , 56 , 0, 0 , 0 
340  DATA  27, i  et  fantastisk  flot  laboratorium  fyldt  med  møleudstyr 

computere  og  prototyper  af  nye  mask  i  ner ., 0 , 26 , 0 , 0, 33, i  en  stor  mArk  parkerings 
kÆlder.  Der  er  ingen  biler  at  se., 0,32, 0,0 

350  DATA  28, i  den  vestlige  ende  af  en  lille  gang  med  mange  dAre.  Mod  nord  kan  du 
se  en  kort  bred  gang  og  mod  syd  er  et  lille  rum. ,30,29,26,0 

360  DATA  29, pø  et  lille  toilet.  Det  ser  ud  som  om  der  ikke  har  vÆret  ryddet  op 
lÆnge  og  gulvet  flyder  med  brugte  hØndklÆder . , 28, 0, 0, 0 

370  DATA  30, i  en  kort  bred  gang.  VÆggene  ersorte  af  snavs  og  olie.  Der  er  en  ind 
gang  mod  vest . , 32 , 28 , 0, 31 

380  DATA  2, foran  en  receptions-skranke  i  etstort  lokale. Der  er  dAre  pø  alle  side 
r . , 5 , 1 , 4 , 6, 35, syd  for  en  stor  elevator  i  en  lang  gang  med  mange  dAre, 5, 41 , 42, 3 
6 

390  DATA  36, i  vest-enden  af  en  lang  gang  medrum  pø  nÆsten  alle  sider.  Mod  syd  er 
deren  stor  dAr . , 0 , 0 , 35 , 37, 39 , i  vestenden  af  et  stort  konferencelokale., 

38,0,40,0 


400  DATA  37, ved  en  stor  tavle  i  et  enormt  auditorium.  PØ  tavlen  stør  skrevet  e 
n  PC-kode.  ’ USOETFCSD* . , 0, 0, 36, 0, 38, i  et  rum  med  et  lille  skrivebordPØ  bordet 
stør  en  PC ’ er . , 36 , 39 , 0, 0 

410  DATA  40,  ved  et  stort  bord  i  Ast-enden  afet  stort  konferencelokale. , 0, 0, 0, 39, 
43, pø  et  lille  toilet  med  en  hylde  ved  den  ene  vÆg.  ,  0, 42 , 0 , 0 

420  DATA  41, pø  et  lille  kontor  der  antageligt  tilhArer  en  travl  program 

mAr  idet  programudskrifter  ligger  spredt  rundt  pø  gulvet. ,35,0,0,0 
430  DATA  14, i  den  syd-vestlige  ende  af  en  stor  fabrikshal.  Mod  syd  er  der  en 
elevator.  Store  og  srnø  maskiner  stør  mellem  hinanden 21 , 5, 15, 0 
440  DATA  42, midt  i  en  lang  gang  med  dAre  pø  nÆsten  alle  sider ., 43, 0, 44, 35, 44, i  e 
n  lang  gang. , 0, 45, 46, 42, 49, pø  et  lille  stAvet  kontor.  I  stAvet  stør  et  telefo 
n-nr.  00-9182736,43,0,0,0 

450  DATA  45, pø  et  flot  kontor  med  tre  skriveborde  ved  siden  af  hinanden., 4 

4,0,0,0,47, i  et  meget  lille  depot  med  hv i devffgge. , 46. 0 . 0. 0 

460  DATA  46, i  den  Astlige  ende  af  en  lang  gang  med  en  dAr  mod  syd.  Mod  nord  ka 
n  du  hAre  en  mÆrkelig  lyd ! , 48, 0, 0, 44, 48, i  et  vaqtrum.  Du  stør  overfor  enstor  s 
chffferhund  der  gAr  arrigt  ad  d ig ! , 0, 46, 49, 0 

470  DATA  60, Du  stør  udenfor  bygningen  hvor  du  bl  i verovermandet  af  et  tilkaldt  va 
gtmandskab  og  drfEbt  pø  stedet  ! ! , 0, 0, 0, 0, IS, i  et  lille  vagtrum  med  en  masse  ele 
ktronisk  udstyr.  En  vagtmand  sidder  ved  skrivebordet  med  en  pi  stol . , 17, 0 , 0 , 0 
480  DATA  3, i  et  af  vagtrummene.  Heldigvis  for  dig  er  der  ingen  vagt  endnu., 0,0, 

I, 0,4, pø  et  toilet.  Der  er  ikke  noget  af  interesse  her. ,0,0, 0,2 

490  DATA  5, Du  stør  i  en  elevator.  DAren  er  lukket  og  der  er  fire  knapper  at  try 
kke  pø..  k  /  s  /  1  eller  2 . , 0 , 0 , 0, 0, 6, i  den  Astlige  ende  af  en  gang. , 7, 0, 2, 8 
500  DATA  7, i  en  lille  maskinstue.  Der  er  dataterm  i  na  1  er  over  det  hele  men  inge 

n  af  dem  v i r ker . , 0, 6 , 0 , 0 , 51 , syd  for  en  elevator  i  den  vestliqe  ende  af  en 

gang.  Mod  syd  er  en  dAr  med  en  speciel  Øbni ngsmekan i sme, 5, 0, 54, 0 
510  DATA  8, midt  i  en  Ast-vest  gang . , 9 , 0, 6, 10 , 9 , i  et  lille  depot  med  disketter., 0 
,8,0,0,10,i  den  vestlige  ende  af  en  lang  gang. Der  er  Øbninger  mod  syd  og  nord., 

II, 12,8,0 

520  DATA  11, i  en  stor  maskinstue  fyldt  med  terminaler. En  af  terminalerne  er  tÆn 
dt. ,0, 10,0,0, 12, pø  et  flot  kontor  med  et  stort  skrivebord. , 10,0,0,0 
530  DATA  1,2, en  lille  1  omme  lygte, lygte, 2, 9, en  diskette  til  en  PC ' er , d i  sket  te , 3 , 1 
2, et  te  1 ef on-modem , modem, 4 , 16 , en  pose  med  d i  oder , d ioder , 7, 22, en  net-ledning  til 
en  PC ’ er , 1  edn  i ng 

540  DATA  8, 24, en  hvid  telefon, telefon, 9, 25, en  elektronik-skruetrÆkker, skruetrffikk 
er, 10, 26, et  bundt  nAg 1  er , nAg 1  er , 1 1 , 31 , en  grAn  gasmaske , gasmaske 

550  DATA  12, 33, en  lille  og  fin  1  oddeko  1 be, 1 oddekol be , 6, 40, et  par  lÆsebr i  1 1  er , br i 
1 1  er , 13, 41 , en  manual  til  et  modem, manual 

560  DATA  14, 43, en  stak  mAnter , mAnter , 15, 47, en  helt  ny  EPROM, eprorn, 16, 49, et  lille 
magnetkor  t ,  magnet  kor  t ,  1 7 , 53 ,  tre  smØ  tfEnger  ,  tÆnger 
570  DATA  18, 55, nogle  mods  tande , modstande, 19, 58, et  stort  saftigt  kAdben , kAdben , 20 
,59, et  ubrugt  pr  i n tkor t , pr  i n tkor t , 21 , 28, en  stor  indisk  kampkniv, kniv 
580  DATA  Det  kan  du  ikke  her! I, Der  sker  ikke  noget ! , OK ! , Du  har , INGENTING !! ,  , Du 
kan  ikke  bfEre  mere!, Det  kan  du  i kke!, Det  nytter  ikke  her!, DAren  gør  op  og  du  for 
tsfftter  -  ,GAr  noget  andet  her! 

590  DATA  Du  mangler  en  vigtig  ting!, DAren  gør  i  med  et  hAj t  ’KLIK’.,Hvor  tøbelig 
kan  du  vÆre !!, Vagten  synker  sammen  som  en  k ludedukke ! , Du  ramte  ikke!!!, Du  har  i 
kke  mere  ammun i t i  on ! ! , DAr en  er  løst!, Hvem  ? 

600  CLS 

610  1 %= 1 : PRINT 
620  WHILE  1 %< 6 1 
630  ok=0 

640  IF  1  %=  1 8  AND  i%(21)=0  AND  v*/.=0  THEN  PRINT“Du  stør  "  +  1  *  ( 1 8)  :  PRINT  “  Vag  t  en  ser 
dig  lige  i  Ajnene,  og  du  opdager  for  sent  at  han  sigter  pø  dig  og  skyder!! 
!":G0T0  1910 

650  PRINT 11  Du  stør  -  +  1  *  <  1  % ) 

660  FOR  x  =  l  TO  21 

670  IF  p% ( 1  % , x  >  = 1  THEN  PRINT"Du  kan  se  “;t*(x) 

680  NEXT  x 

690  IF  1%=33  AND  <a*="n"  OR  a*="A''  OR  a*=“v“)  AND  o%=0  THEN  PRINT"Du  faldt  i  et 
hul  og  brÆkkede  nakken G0SUB  1910 
700  PRINT  w*;: INPUT  sv* 

710  sv*=L0WER*(sv*) 

720  a$=LEFT* (sv$,2) : b*=LEFT* ( sv$ , 3 ) : c*=LEFT* ( sv*, 4 ) 

730  IF  a*=" gØ“  THEN  a*=MID$ (sv$, 4 , 2) 

740  IF  a*= “ n “  AND  kort%< 1%, 1 ) >0  THEN  1 %=kor t% ( 1 %, 1 ) : ok=l 
750  IF  a*=  “ s “  AND  kort*/.(  1%,  2)  >0  THEN  1  */.=  kor  t*/.  ( 1%,  2)  :  ok  =  l 
760  IF  a*=“A"  AND  kort% ( 1%, 3) >0  THEN  1 %=kort%( 1%, 3) : ok=l 
770  IF  a*="v“  AND  kor  t*/.  (  1  \ ,  4  )  >0  THEN  1  %=kor  t%  ( 1%,  4  >  :  ok  =  l 

780  IF  1%=48  AND  i  % ( 1 9 ) =0  AND  k%=0  THEN  PRINT“Du  stør  "  +  1 $< 48 ): PRINT  q*:G0SUB  19 
10 
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790  IF  1%=56  AMD  0*4=1  THEM  PRINT  r*:GOTO  1910 
800  IF  1 *4=57  THEN  PRINT  5*: GOTO  1910 
810  IF  b*= “ t ag “  THEN  ok=l: GOSUB  1020 

820  IF  b*="  lfEg"  OR  b*="kas"  OR  b*="smi"  THEN  ok=l: GOSUB  1080 

830  IF  b*=“sky“  THEN  ok=l:GOSUB  1140 

840  IF  b*=  “  tfEn  “  THEN  ok  =  l:GOSUB  1180 

850  IF  b*=“slu“  THEN  ok=l:GOSUB  1220 

860  IF  c*="ir.ds"  THEN  ok=l:GOSUB  1250 

870  IF  c*= " skr i "  THEN  ok=l:GOSUB  1320 

880  IF  b*= “ 1  av “  AND  1%=25  THEN  ok=l:GOSUB  1350 

890  IF  b*= "Øbn "  OR  b*=“Øbe“  THEN  ok=l:GOSUB  1390 

900  IF  b*=“  luk  “  OR  b*="10s"  THEN  ok  =  l:GOSUB  1510 

910  IF  c*= “tiis"  THEN  ok=l:GOSUB  1630 

920  IF  1%=11  AND  c*="drej  *  THEN  ok  =  l:G0SUB  1680 

930  IF  c*= “ kal d "  OR  c*=“hjÆl"  THEN  ok=l:GOSUB  1730 

940  IF  (1*4=18  OR  1*4=48)  AND  b*="giv"  THEN  ok=l:GOSUB  1740 

950  IF  c*=“  ar.gr  "  THEN  ol<=l:GOSUB  1770 

960  IF  c*= "list"  THEN  ok=l:GOSUB  1810 

970  IF  1 %=5  THEN  ok=l:GOSUB  1360 

980  IF  1*4=60  THEN  PRINT  1* (60): GOTO  1910 

990  IF  okOl  THEN  PRINT "Bek 1  ager ,  men  det  kan  jeg  ikke  her!" 

1000  a*= “ ■ 

1010  WEND 

1020  IF  e%>3  THEN  a=7:G0T0  1070 

1030  IF  1*4=48  AND  kV.=  l  AND  INSTR  (sv$,  “kAdb" )  THEN  PRINT  q*: GOSUB  1910 
1040  b*=MID*(sv*,5) :FOR  x  =  l  TO  21 :  IF  p*4(l*4,x)=l  AND  LEFT* ( b* , 4 ) =LEFT* < tn* < x ) , 4 ) 
THEN  GOTO  1060  ELSE  NEXT  x 
1050  a=8 : GOTO  1070 

1060  i  %  (  x  )  =  1 :  a=3:  e%=e*4+  1 :  p*4(  l*4,x)=0 

1070  PRINT  x* ( a) : RETURN 

1080  IF  e%< 1  THEN  a=8:G0T0  1130 

1090  c*=MID* ( sv* , 5) : IF  LEFT* (c*, 1 ) =“  “  THEN  c*=MI D* ( sv*, 6) 

1100  FOR  x=l  TO  21 : IF  i  % ( x ) =1  AND  LEFT* ( c* , 4 ) =LEFT* ( tn* ( x ) , 4 )  THEN  GOTO  1120  ELS 
E  NEXT  x 

1110  a=8 : GOTO  1130 

1120  a=3 :  e°4=e%- 1 :  p%  ( 1  *4 ,  x  )  =  1 :  i*4(x)=0 
1130  PRINT  x* ( a) : RETURN 

1140  IF  i  *4  ( 5 )  =  1  AND  skud=8  THEN  a=17:G0T0  1170 
1150  IF  i *4  ( 5 )  =  1  THEN  a=16  ELSE  a=12:GOTO  1170 
1160  skud=skud+l 
1170  PRINT  x*(a) : PRINT: RETURN 

1180  IF  1*4038  AND  i*4(l)=l  AND  o%=0  THEN  0*4=  1 :  a=3 :  GOTO  1210 

1190  IF  1  %=38  AND  p% (33,71=1  AND  INSTR  ( sv* ,  “  pc  "  )  AND  pc*4=0  THEN  pc*4=l :  1  *  ( 38 )  =  "  i 
et  lille  rurn  med  et  skrivebordPØ  bordet  stør  en  tÆndt  PC ’ er “ : a=3: GOTO  1210 
1200  a=8 

1210  PRINT  x*(a) : PRINT : RETURN 

1220  IF  INSTR  (sv*,  "lygt"  )  THEN  a=3:  o*4=0:  GOTO  1240 
1230  a=8 

1240  PRINT  x* ( a) : PRINT: RETURN 

1250  IF  1*4011  AND  1*4020  AND  1V.038  AND  1%<>53  THEN  a=l:GOTO  1310 

1260  IF  1*4=11  AMD  INSTR  ( s  v*,  “  t  e  1  e "  )  AND  p%  (11,31-1  AND  p%(ll,8)-l  THEN  a=3:-f*4=l: 

GOTO  1310 

1270  IF  1  %=20  AND  INSTR  (sv*,  "epro"  )  AND  i  %  ( 1 5 )  =  1  THEN  i*4  ( 15)  =0:  pX  (20,  15)  =1 :  e*4=e*4 
-l:PRINT"Eprorn,rnen  bliver  hurtigt  programmeret ,  oq  er  nu  klar  til  brug  i  et  kre 
ds  lAb  !  “  :  a=6 :  prog*4=l :  t*  (  1 5)  = 11  en  programmeret  EPROM“:GOTO  1310 

1280  IF  1 %=38  AND  i%(2)=l  AND  INSTR ( sv* , “ d i  sk “ )  THEN  a=3: i% ( 2) =0 : e%=e%-l : p% (38, 2 
) =1 : d%=l : GOTO  1310 

1290  IF  1*4=53  AND  i*4(20)  =  l  AND  INSTR  ( t*  ( 20)  ,  “-f  Ærd  i  gt  "  )  THEN  GOSUB  2020  ELSE  a=12 
IGOTO  1310 
1300  a=8 

1310  PRINT  x*(a> : PRINT : RETURN 

1320  IF  1%=38  THEN  1330  ELSE  a=l:60T0  1340 

1330  IF  d%=l  THEN  PRINT"PC ’ eren  skriver  {digende  meddelelse  til  dig:  HOVEDCOMPUT 
EREN  BEFINDER  SIG  P*  2.  SAL  I  DENNE  BYGNING.  INDSeT  PRINTKORTET  I  PORTEN  ! " : a=6 
1340  PRINT  x*(a): RETURN 

1350  GOSUB  2000: IF  pr%=l  THEN  1360  ELSE  a=12:G0T0  1380 

1360  PRINT: PRINT"Du  tør  hurtigt  sat  tingene  rigtigt  sammen,  og  stør  nu  med 

et  -fffrdigt  i  ndst  i  kspr  i  ntkor  t  !!“ 

1370  p*4  ( 25 , 4  )  =0 :  p*4  ( 25 ,15)  =0 :  p%  (  25 ,18)  =0 :  p*4  ( 25 , 2 )  =0 :  t*  ( 20 )  =  “  e  t  ffErdigt  printkort" 

:  e%=e*4+  1 :  i%  (20)  =1 :  a=6 

1380  PRINT  x*(a) : PRINT: RETURN 

1390  IF  i  %  ( 1 0 )  =  1  OR  i  *4  ( 1 6  )  =  1  THEN  1400  ELSE  a=12:G0T0  1500 


0 


1400  IF  1*4=17  OR  1*4=46  OR  1*4=36  OR  1%=51  OR  1%=52  OR  1%=47  OR  1*4=38  OR  1%=18  THE 
N  1410  ELSE  a=9 : GOTO  1500 

1410  IF  1 %= 1 7  AND  i % ( 1 0 )  =  1  THEN  a=10: kort*4< 17, 2) =18: 1 %= 1 8 : GOTO  1500 
1420  IF  1*4=18  AND  i  %  ( 10 )  =  1  THEN  a=  10 :  kor  t*4  <  18,  1 )  =17:  1  %=17:  GOTO  1500 

1430  IF  l%-46  AND  i*4(10)=l  THEN  a=  10 !  kor  t%  ( 46 , 2 )  =47 :  1  *4=47 :  GOTO  1500 

1440  IF  1  %=47  AND  i%  (  10)  =1  THEN  a=  10 :  kor t*4  ( 47 ,  1 )  =46 :  1  %=46 :  GOTO  1500 

1450  IF  1%=36  AND  i  %  ( 1 0 )  =  1  THEN  a=  1 0 :  kor  t*4  ( 36 , 2 )  =38 :  1  *4=38 :  GOTO  1500 

1460  IF  1*4=38  AND  i*4(10)=l  THEN  a=10:  kort*4(38,  1 )  =36:  1%=36:  GOTO  1500 

1470  IF  1%=51  AND  i%(16)=l  THEN  a=10:  kort*4  (51 , 2)  =52:  1*4=52:  GOTO  1500 

1480  IF  1%=52  AND  i%(16)=l  THEN  a=  10 :  kor  t*4  ( 52 ,  1 )  =51 :  1*4=51 :  GOTO  1500 

1490  a= 1 2 

1500  PRINT  x* (al : PRINT : RETURN 

1510  IF  i  *4  ( 1 0 )  =  1  OR  i  %  ( 1 6 )  =  1  THEN  1520  ELSE  a=12:G0T0  1620 

1520  IF  1  %=  1 7  OR  1%=46  OR  1%=36  OR  1*4=51  OR  1*4=52  OR  1%=47  OR  1%=38  OR  1*4=18  THE 
N  1530  ELSE  a=9:G0T0  1620 

1530  IF  1*4=17  AND  1*1101  =  1  THEN  a=13:  kor  t*4  ( 17, 2)  =0:  GOTO  1620 

1540  IF  1*4=18  AND  i*4(  101=1  THEN  a=13:  kort%  ( 18, 1 )  =0:  GOTO  1620 

1550  IF  1  %=46  AND  i  %  ( 1 0  >  =  1  THEN  a=13:  kor  t*4  ( 46 , 2)  =0:  GOTO  1620 

1560  IF  1*4=47  AND  i*4(10)  =  l  THEN  a=13:  kor  t*4  <47,  1  >  =0:  GOTO  1620 

1570  IF  1  %=36  AND  i  %  ( 1 0  >  =  1  THEN  a=  1 3 :  kor  t*4  ( 36 , 2 )  =0 :  GOTO  1620 

1580  IF  1*4=38  AND  i  %  ( 1 0 )  =  1  THEN  a=  1 3 :  kor  t  *4  (  38 ,  i  )  =0 :  GOTO  1620 

1590  IF  1  %=5 1  AND  i  %  ( 1 6  )  =  1  THEN  a=  1 3 :  kor  t*4  ( 51 , 2 )  =0 :  GOTO  1620 

1600  IF  1%=52  AND  i % ( 1 6 ) = 1  THEN  a= 1 3 : kor t% ( 52 , 1 ) =0 : GOTO  1620 
1610  a=l 2 

1620  PRINT  x* ( a) : PRINT : RETURN 

1630  IF  1%<>38  OR  1*40  53  THEN  a=9:G0T0  1670 

1640  IF  1*4=38  AND  INSTR (sv*, " pc “ >  AND  i*4(7)=l  THEN  a=3:G0T0  1670 

1650  IF  1*4=53  AND  INSTR  (  sv*,  11  pr  i  n  "  )  AND  i  %  ( 20 )  =1  AND  INSTR  ( t*  (20 )  ,  "  fÆrd  i  g  t  “  )  THE 

N  GOSUB  2020 

1660  a= 1 

1670  PRINT  x* ( a) : PRINT : RETURN 

1680  IF  1%=11  AND  p%  ( 1 1 , 3)  =1  AND  p*4(ll,8)=l  THEN  1690  ELSE  a=ll:GOTO  1720 

1690  GOSUB  2010: IF  INSTR (sv$, "00-9182736" )  AND  dr*4=l  THEN  a=6:G0T0  1700  ELSE  a=2 

:GOTO  1720 

1700  PRINT "  Du  drejer  nummeret  pø  telefonen  og  hAreren  hyletone  -fra  modem  ’  et  “  i  :  FO 
R  x  =  1  TO  16: PRINT" .  " i : FOR  y=l  TO  200INEXT  y:NEXT  x 

1710  PRINT"PØ  terminalen  kommer  fAlgende  besked  -fradit  hovedkvar ter :  Husk  dioder 
,  mod-  stande,  print,  programmeret  EPROM,  tÆnger,  loddekolbe  og  skruetr 

ffkkere  -for  at  lave  printet!!” 

1720  PRINT  x*  (a)  :  PRINT '.RETURN 

1730  PRINT“Der  er  ingen  der  lytter  til  dine  k  1  agerøb !!“: RETURN 

1740  IF  1*4=13  AND  v*4=0  THEN  PRI  NT "  Vag  t  en  skyder  dig  med  en  lille  p  i  sto  1  !  “ :  GOTO  1 

910 

1750  IF  1 %=48  AND  INSTR < sv*, ” kAdb " )  AND  i  % ( 1 9 ) = 1  THEN  l*(48)  =  “i  et  vagtrum.  En  s 
tor  schÆfer-  hund  gnasker  fredeligt  pø  et  kAdben .  “ :  k%=i  :  i  %  ( 19)  =0 :  e%=e*4- 1 :  GOTO  1 
760  ELSE  a= 1 4 : GOTO  1910 
1760  PRINT  x* ( a ) : RETURN 

1770  IF  1 %<  > 1 8  AND  1%<>48  AND  i  % ( 21 ) =0  THEN  a=19:G0T0  1800 
1780  IF  1 %=48  THEN  PRINT  q*: GOSUB  1910 

1790  IF  1  %=  1 8  AND  i  %  ( 2 1 )  =  1  AND  v*4=0  THEN  a=  1 5 :  v%=  1 :  1  *  ( 1 8 )  =  "  i  et  af  vagtrummene. 
Over  skrivebordet  ligger  en  dAd  vagtmand  med  ti  knivstik  i  ryggen! ”:i% 

(21 )  =0:  e%=e%-l :  p*4(  18, 21 )  =1 :  p*4(  18, 5)  =1 :  t*(5)  =  “en  lille  pistol  “  :  tn*  (5 )  = "  p  i  sto  1  ” 
1800  PRINT  x* ( a) : PRINT: RETURN 

1810  PRINTIPRINT  x*(4):IF  e*4=0  THEN  a=5:G0T0  1850 
1820  FOR  x  =  1  TO  21:  IF  i*4(x)=l  THEN  PRINT  t*  ( x  > 

1830  NEXT  x 
1840  a=6 

1850  PRINT  x* ( a ) : PR  I  NT : RETURN 
1860  PRINT  1  * ( 5 ) 

1870  PRINT“Tryk  pø  en  af  knapperne:  " 

1880  aa*=LOWER*( INKEY*) : IF  aa*=“ "  THEN  1830 

1890  IF  aa*= "  k  “  THEN  1*4=14  ELSE  IF  aa*="s"  THEN  1%=2  ELSE  IF  aa*=“  1”  THEN  1*4=35 
ELSE  IF  aa*=  "2”  THEN  1*4=51  ELSE  1880 

1900  PRINT“E1 evatoren  bevÆger  sig  hurtigt  og  stopper  sø  med  et  s(Et.  Du  g Ør 

ud  ad  de  Øbne  dAre RETURN 

1910  PRINT: INPUT"Vi 1  du  prAve  igen  (j/n)  ?  ",svar*:IF  svar*=” j “  OR  svar*=“J“  THE 

N  RUN  ELSE  END 

1920  SYMBOL  AFTER  90 

1930  SYMBOL  91,0,0,236,18,124,144,110,0 
1940  SYMBOL  123,62,80,144,252,144,144,158,0 
1950  SYMBOL  92,48,0,120,12,124,204,118,0 


GAMES 


1960  SYMBOL  96,24,36,126,102,102,126,102,0 
1970  SYMBOL  93,0,2,124,206,214,230,124,128 
1980  SYMBOL  125,58,108,206,214,230,108,184,0 
1990  RETURN 

2000  IF  p%  ( 25 , 4 )  =  1  AND  p%(25,9)=l  AND  p%(25,12)=l  AND  p%(25,15)=l  AND  prog%=*l  AN 
D  p%(25,17)-l  AND  pV.  ( 25 , 1 8 ) = 1  AND  p%(25,20)=l  THEN  pr%=l : RETURN  ELSE  pr%=0:RETUR 
N 

2010  IF  p% ( 1  i , 3) =1  AND  p% (11 , 8 ) = 1  AND  p% ( 1 1 , 1 3 ) = 1  AND  +  %=1  THEN  dr%=l : RETURN  ELS 
E  dr%=0: RETURN 

2020  CLS: PRINT"  TILLYKKE  !!“ 

2030  PRINT:  PRINTHovedcomputeren  er  ’gØet  ned’  !!!!!!" 

2040  PRINT: PR I NT “Da  lAste  dette  adventure-sp i  1  ganske  fortræffeligt." 

2050  PRINT: PRINT“Nu  kan  ministeriet  -  takket  vÆre  dig  -  atter  slappe  a f  efter  d 
enne  uheldige  episode." 

2060  PRINT: PRINT"Vi  ses  møske  snart  til  en  anden  opgave!” 

2070  FOR  x«l  TO  lOOOOlNEXT  x : END 


NewBrain 

Komplekse  Tal 


Dette  program  giver  dig  mulighed 
forat  regne  med  komplekse  tal  på 
din  N.B.  Man  indtaster  de  to  tal. 
man  ønsker  at  regne  på,  på  nor¬ 
malformen  for  komplekse  tal. 
a+bi,  hvor  a  er  selve  tallet,  b  står 
for  hvor  mange  gange  der  skal 
ganges  med  den  imaginære  faktor 
I.  Derefter  indtastes  den  opera¬ 
tion.  man  ønsker  udført  (+.-,*,+) 
og  facitet  fremkommer  på  skær¬ 
men. 

Programmet  kræver  en  forhånds¬ 
viden  om  komplekse  tal. 


1900  PUT  31 'REM  **  CLERR  SCREEN  ** 

2000  PUT  23. "C" • REM  **  CWR  2  ** 

2100  CLERR 

2200  PRINT  "PROGRAMMET  KRN  UOFØRE  FØLGEN 
DE  OPERRTIO-NER  PRR  KOMPLEKSE  TRL ' M 

2300  PRINT 

2-tøø  PRINT  "X*Y,X-Y,X*Y.X^Y.HVOR  X  OG  Y 
ER  KOMPLEKS-E  TRL.  PRR  FORMEN  «*tol" 

2420  PRINT 

2440  PRINT  "UNDER  OPERRTION  SKRL  ANGIVES 
El—  -  y" 

2300  PRINT 

2520  PRINT  "PROGRAMMET  STOPPES  VED  RT  IN 
DPUTTE  E  SOMI.  TRL" 

2550  PRINT 

2SØØ  INPUT  <  "  1  .  TRL  <*-*-tol>  T  ••  >  RØ 
26550  IF  A8-"E"  END 


3000 

IF 

C»-' 

GOTO 

4000 

3020 

IF 

GOTO 

4300 

3040 

IF 

C*-* 

GOTO 

4600 

3060 

IF 

C»-* 

•  /  ■( 

GOTO 

4900 

3300  PUT  1 1 ■ GOTO  2Søø 
4000  REM  **  ** 

4020  PR-P3+P4 ' PB-P5*P6 
4040  GOTO  Søøø 
4300  REM  **  -  ** 

4320  PR-P3-P4 ■ PB-P5-P6 

4340  GOTO  9000 

4600  PR-P3*P4-P5*P6 

4640  PB-P3*P6-*-P4*P3 

4660  GOTO  9000 

4900  P7-P4*P4 ■ P8-P6*P6 

4940  PR-C  P3*P4*P5*P«  P7*P6  > 

4960  PB— < P4*P5-P3*P6 >y< P7*PØ > 

4980  GOTO  9000 

8000  REM  ************ 

8100  P1-INSTR< R» . “ * " > 

8200  P2-INSTR<B»,,,  +  "  > 

8300  P3»-MID»< R», 1,<P1-1)> 
8400  P4*"MID*< B*>  1 . <  P2 — 1  >  > 
8300  P3-VRLC P3* > 

8600  P4-VRLC  P4«  > 

0620  P5»-MID«R*.<P171>> 

8640  P68-MIDRK  B8.  <  P24-1  >  > 

8660  P5-VRL<P3*> 

8680  P6-VRL<  P6* > 


2700  INPUT  <  "2.  TRL  T  "  >  8* 

2800  INPUT  < "OPERATION  T  " >  C8 

2900  GOSUB  8000 


8700  RET 

9000  PRINT  '  PRINT  •  PRINT  PRj  “♦"i  PBi  11  1 
9999  GOTO  2200 
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VIC2Q 

Pladekartotek 


Endelig!  Her  er  redningen  for  alle 
de  frustrerede  musikelskere,  som 
mangler  system  i  samlingen  af 
Bach  eller  Bee  Gees.  Programmet 
er  til  VIC-20  med  1 6  K  Rams  udvi¬ 
delse.  og  det  indeholder  et  sandt 
hav  af  muligheder:  Sortering  i  al¬ 
fabetisk  orden  efter  kunstner- 
navn.  søgning  efter  titel  eller 
kunstnemavn  og  udprintning  på 
printer,  m.m. 

Pladekartotek  kan  rumme  op  til 
nær  de  300  forskellige  plader 
(kunster,  titel)  og  kan  med  meget 
få  ændringer  også  køre  på  C64. 

Kurt  Petri  Petersen 


1  REM########*####* 

2  REM  PLflDEKflRTOTEK 


3  REM##### 

4  PR  I  NT  "IT 

«***  **  *  +'* 

PRINT: PRINT : PRINT : PRINT 

5  PRINT" 

***************** 11 

6  PRINT" 

*  #" 

7  PRINT" 

*  PLflDEKflRTOTEK  *" 

8  PRINT" 

*  #" 

9  PRINT" 

*  #" 

lø  PRINT" 

*  #" 

11  PRINT" 

*  #" 

12  PRINT" 

*  #" 

13  PRINT" 

*  KURT  PETERSEN  #" 

14  PRINT" 

*  #" 

15  PRINT" 

***************** 11 

0 
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16  FOR  X=1  TO  2008 : NEXTX 

17  REM#*##***#**#* 

18  REMHOVEBPROGRAM 

19  REM************ 

2ø  PR  I  NT  "IT 

21  PRINT"  HOVEDMENU" 

22  PR  I  NT "  SEJ  FUNKTION  TRST  1"  :  PR  I  NT 

23  PR I NT "KUNSTNER-SØGNING  K  ": PRINT 

24  PRINT" OPRET /HENT / A JOURF .  O  ": PRINT 

25  PR I NT "PRINTER-UDSKRIFT  P  " =PRINT 

26  PR I NT "STOPPE  PROORRM  S  "SPRINT 

27  PRINT"TITEL-SØGNING  T  ": PRINT 

28  PR  I  NT "  SKRERM-UDSKR I  FT  U  SPRINT 

29  GETX* 

3ø  IF  X$=" "THEN29 

31  I F  <  X*<> " O " >  AND  <  X#<> " U " ) AND  <  X$<> " K " ) AND  <X#<> " T " ) AND  <  X*<> " P " > RND <  X$<> " S " >  THEN 
0SUB40 

32  I FX$= " O " THENGOSUB 1 33 

33  I FX$= " U " THENG0SUB43 

34  I FX$= " K " THENG0SUB7 4 

35  I FX*= " T " THENG0SUB89 

36  I FX*= " P "THENGOSUB 112 

37  IFX$="S"THEN39 

38  G0T020 

39  END 

40  PR  I  NT  "  3"  :  PR  I  NT  :  PR  I  NT  "  3H«s»Mtt«:TiT:ft]I  LLEGRL  KOMMANDOS" 

41  F0RX=1T01000 : NEXTX 

42  RETURN 

43  PRINT" IieirølfiKHL ISTE  SORTERET  ?  J/N" 

44  GET  Y$ 

45  IF  V$=" "THEN44 

46  I FY*= " J " THENG0T062 

47  I FY*= " N " THENGOT 052 

48  I FY*<> " J " ANDV*<> " N " THENG0T040 

49  REM  ****************************************** 

5ø  REM  SUBRUTINE  FOR  ALFABETISK  "BOBLESORTER I NG" 

5 1  REM  ****************************************** 

52  PRINT"3WM«a«æW  ALFABETISK  SORTERING" : PRINT : PRINT"  DET  TAGER  NOGEN  TID" 

53  FGRF=  1  T03øø  '•  NEXTF 

54  F0RI=1T0<N-1) 

55  F0RY=1T0<N-1 > 

56  IF  A*<VX-A*<Y+1>THEN61 

57  REM  OMBYTNING 

58  BYT* =A*  <  Y  > : A*  <  Y  > =A*  <  V+ 1 > : A$  <  Y+ 1 >=BVT$ 

59  REM  TITLERNE  OMBYTTES  FOR  AT  SVARE  TIL  DE  RESPEKTIVE  KUNSTNERE 
6ø  BYT  1  *=B$  (. Y  > :  B*  <  Y  >  =B*  C  Y+ 1 )  :  B$  < V+ 1 )  =BVT  1 1 

6 1  NEXTY : NEXT I : PRINT" 

62  PR  I  NT  "ri"  :  PRINT  :  PRINT :  PRINT :  PRINT  '•  PRINT :  PRINT :  PRINT"  .  — . - . " 

63  PRINT"  I  I" 

64  PRINT"  I  LISTE  OVER  PLADER  I" 

65  PRINT"  I  I" 

66  PRINT"  - " 

67  FOR  X=1  TO 1 øøø : NEXTX: PR I NT 

68  PR  I  NT "  riSftWflRMWIRIBCRTLB-TASTEN  REGULERER  HASTIGHEDEN  " 

69  FOR  W=1  TO  7øø : NEXTW : PR I NT " H" : PR I NT "  WBttftHW" 

7ø  FOR  I-1T0N: PRINT 

71  GOSUBløl 

72  NEXT I 

73  RETURN 

74  REM  ##*########*###############**# 

75  REM  SUBRUTINE  FOR  KUNSTNER  SØGNING 

76  REM  *#*##**#*###***#**#####*#**### 

77  LET  FUNDET =ø 

78  PR  I  NT  "31"  :  INPUT"  INDT.  KUNSTNER" ;  Mf  :  PR  I  NT"  :  PRINT 

79  FOR 1=1 TON 

80  I FA* <1 > =W$ THENGOSUB 1 ø 1 

81  NEXT I 

82  IF  FUNDET =øTHENPR I HT " KUNSTNEREN  FINDES  IKKE  I  KARTOTEKET." 

83  IF  FUNDET =ØTHENPR I NT : PR I NT " PRØV  MED  EN  ANDEN." 

84  F0RU=1  TO 15øø ; NEXTU 

85  RETURN 
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36  REM  ************************** 

37  REM  SUBRUTINE  FOR  TITELSØGNING 

38  REM  ************************** 

83  LETFUNDET=0 

9ø  PR  I  NT  "  :  PR  I  NT=  I  NPUT  "INDTAST  TITEL"  J  D$  ■'  PRINT"!!"  :  PRINT 

91  FOR  1=1  TO  N 

92  IF  B$<I>=D$  THENGOSUB  101 

93  NEXTI 

34  IF  FUNDET =øTHEHPR I NT " DER  FINDES  INGEN  PLAD-ER  MED  DENNE  TITEL" 

35  IF  FUNDET=ØTHENPRINT : PR I NT "PRØV  EN  ANDEN." 

96  FOR  U=1  TO 15øø : NEXTU 

97  RETURN 

98  REM  ***************************** 

99  REM  SUBRUTINE  FOR  SKAERM  UDSKRIFT 
løø  REM  ***************************** 

løl  PR  I  HT  "PLADE  NR.  "  I :  :  PRINT" - "-PRINT 

102  PR I NT "KUNSTNER : "A$<I) 

103  PRINT" - " 

104  PR I NT " T I  TEL : " Bf  < I ) 

105  PRINT" - " 

106  F0RA=1T022 : PRINT"*" ; :  NEXTA 

107  FUNDET=1 

108  RETURN 

1 09  REM******************************* 
llø  REM  SUBRUTINE  FOR  PRINTER  UDSKRIFT 

1 1 1  REM******************************* 

112  0PEN4, 4 

113  PRIHT#4j  CHR$< 13) 

1 1 4  PR I NT#4 , CHR$ Cl 4 ) : PR I HT#4 , CHR* <1 6 ) " 30PLADEL ISTE" 

115  PRINT#4,CHR$<13> 

116  PR I NT#4 , CHR*  < 1 6  > " 1 5KUNSTNER " ; 

117  PRINT#4,CHR$<16)"5øTITEL" 

118  PRINT#4,CHR$<15> 

119  PR I NT#4  >  CHR$  < 1 3 ) 

12ø  FOR  1=1 TON 

121  IF  A$<  I  )="!ti"ORB$< I )="#"  THENG0T0128 

122  PRINT#4,CHR*<16>"ø5NR."; :PRINT*4,I; 

123  PRINT#4,CHR*<16>"15"J  = PRINT#4, A$CI ) ; 

1 24  PR I HT #4 , CHR$ < 1 6  > " 50 " ; 

125  PRINT#4,B«I> 

126  PR I NT #4 , CHR$  < 1 3 ) 

127  NEXTI 

128  CL0SE4 

129  RETURN 

1 3ø  REM********************************* 

131  REMSUBRUTINE  FOR  OPRET XHENT /AJOURFØR 

132  REM********************************* 

133  PR  I  NT"  IT* : PRINT"  MENU" 

134  PRINT" SKI  FUNKTION  TASTS" =PRINT 

135  PR I NT" AJOURFØR  PLADE  A  ": PRINT 

136  PR I NT "BRUGERVEJLEDNING  B  " : PRINT 

137  PR I NT "GEM  SORTERET  FIL  G  ":PRINT 

138  PRINT" INDLAES  PLADEFIL  I  ":PRINT 

139  PR I NT "OPRET  NV  FIL  N  ":PRINT 

14ø  GEm 

141  IF  '■/$="" THEN  148 

142  I FVt= " A " THENG0SUB200 

143  I FV*= " B " THENG0SUB2 1 2 

144  I FV$ = " G " THENGOSUB 1 86 

1 45  I FV$= " I " THENGOSUB 1 7 1 
1461 FV$= " N " THENGOSUB 1 52 

147  I F  <  V$<> "R " >  AND  < V* <> " B " ) AND < V$<> " G " ) AND <  V#<> " I " >  AND  < V$<> " N " ) THENG0SUB40 

148  RETURN 

149  REM************ 

15ø  REM  NV  PLADEFIL 

151  REM************ 

152  PRINT"n?HUSK  AT  GØRE  PLADS  " :PRINT"TIL  EKSTRA  PLADER  <N>" =PRINT 

153  PRINT  "EKSTRA  PLADE  INDT.  ’•&,$"  ’■  F0RX=lT035øø :  NEXTX 

154  PRINT "3": PR I NT 

155  INPUT" INDT.  REGISTERNR. " ; R 

156  PRINT’-  INPUT"  INDTAST  ANTAL  PLADER" ;N 

157  PRINT: PRINT" I NSAET  KASSETTE" : PRINT 


0 
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158  OPENR ,1,1," PLADER " 

159  R$=CHR$< 13) 

16ø  PRINT#R,N 

161  FORX=lTON 

1 62  PR I NT " PL ADENR " , X : PR I NT 

163  INPUT  "KUNSTNER, TITEL" ;A$,B$ 

164  PRINT#R,fl*;R$;B* 

165  NEXTX 

166  GLOSER 

168  REM##**##*#*#***#**# 

169  REM  INBLflES  PLflBEFIL  ,  1  lpT=~  >  =*‘> '  Wtefr 

17ø  REM#****##*##*##****  i*g|j$L_ 

171  PRINT":]" :  I  NPUT"  INDT.  REGISTERNR.  ";R  / 

172  PR  I  NT  "H"  :  PRINT"  INDSAET  KASSETTE"  :  PRINT  Kl® 

173  OPENR,  l,ø,  "PLADER"  \é\M 

1 74  INPUT#R,Q*:REM  ANTALLET  RF  PLADER  LRESES  ¥/ K'Jfcg 

176  DIM  0$ < N ) :  REM  TABEL  TIL  KUNSTNERE  llH  B 

1£7  DIfl  B*<N>  U?EM  TflBEL  TIL  TITLER  ^  |fl  £j 

183  ^^***************  ^  II 

185  REM********#**#*#*#*  ~  i  \  f  ^  \  j  jm 

1 86  PRINT";]"  :  INPUT" INDT. FIL  NR.  ";R - I '  I  W 

187  PRINT: PRINT" INDSAET  KASSETTE" 

19ø  PR  I  NT  "IT  :  PR  I  NT  "SORTERET  FIL  GEMMES  Æ=- 

193  print#r?a$<x);r$;b$<x)  r  r,' 

197  ^EM***#*****#***#*  - — -  .  ^  ^ 

198  REM  AJOURFØR  PLADE 

199  REM*####*#*#*#*##* 

2øø  PR I NT "H" : PRINT 

201  INPUT" INDT.  PLADENS  NR.";M 

202  I FM>NTHEHG0T02ø 1 

203  PR  I  NT  " 7M5AMLE  PLADE  ’■  "  :  PRINTA$(M) ,  B$<M> 

204  PR I NT" MI NDT AST  OG  TRVK  RET.": PRINT 

205  INPUT" NV  KUNSTNER , TITEL" ; R$<M>, B$<M> 

2ø6  PRINT "»PLADE  AJOURFØRT" 

2ø7  FORS= 1 T04øø : NEXT 

208  RETURN 

209  REM#######*#*######* 

21ø  REM  BRUGERVEJLEDNING 

211  REM**###**#**#*#*###* 

212  PR I NT "T : PRINT"  SGBRUGER VEJLEDNING  S": PRINT 

213  PR I NT "»OPRETTES  EN  NV  PLADE-" : PRINT = PRINT"FIL  SKAL  PROGR.  STOP-" 

214  PR I NT -PR I NT "PES  <S>  OG  FOR  AT  FOR-" : PRINT"SAETTE  TAST  RUN." 

215  PR I NT: PR I NT "HUSK  fly  LAVE  PLADS  TIL" : PR I NT "EKSTRA  PLADER.  DETTE" : PRINT : PRINT" 
GØRES  MED  N. 

216  PRINT" XMMHMTRVK  PAA  EN  TAST" 

217  GETSf :  IFS$=" "THEN217 :  IFSfO" "THENG0T0218 

218  PRINT"miIDE  TOMME  PLADSER  LAVES"  :  PR  I  NT  "PAA  FØLGENDE  MAADE :  " 

219  PR I NT: pr i NT" KUNSTNER, T I TEL=  #, 0" : PRINT : PRINT 

220  PRINT"ØNSKES  PLADE  AJOURFØRT" : PR I NT "BRUGES  A-KOMMANDOEN. " : PRINT 

221  PR I NT "NB ! HUSK  ALTID  AT  GEMME" = PR I NT "EN  RETTET  PLADE  V.HJ.-  " 

222  PR I NT "AF  I -KOMMANDOEN. " 

223  PRINT-MSMTRVK  PAA  EN  TAST" : PRINTFRE<8> 

224  GETK$:  IFK$=" "THEN224 :  IFK$0"  "THENG0T0225 

225  PR  I  NT  "  [I"  :  PR  I  HT  "  MeMirøM  SS30D  FORNØJELSES  !" 

226  FOR  X=1 TO løøø: NEXT 

227  RETURN 


|¥| 


Commodore  64 

Mulii-urei 

Du  kender  situationen:  Datoen  er 
et  sted  i  januar.  Udenfor  pisker 
slud  og  regn  med  den  frønnede 
vinduesrude.  Det  eneste  lyspunkt 
er.  at  du  ikke  kan  se  uvejret.  For 
det  er  bælgmørkt  overalt. 

Selv  om  du  godt  ved.  du  skal  op  og 
på  job.  er  det  umuligt  at  presse  sig 


PRQGRAN:  NUL* 

0  REM  554 

1  REfl  *■»»•*  NULTI-UR 

S  REfl  ****  ØLE  EIRKEDAL  «•*«* 

3  REI I  ****  ROAGERUEJ  251  **** 

4  REtl  *♦**  5750  RIEE  ***• 

10  PR  I  MT ” C  CLR 1 ” : POKE  53280,6 

: FOR  T-54272  TO  54285 : POKE  T,0 
:  NEXT 

15  POKE  56578, 255: POKE  56577,0 
20  PRINT”(CRSR  NED3 , CRSR  HØJRE10)NUL 
TI  STOP-UR.” 

30  PRINT"  oooooooooooooo 


40  PR  I  NT  ”  r.  CRSR  NED2  ,  CRSRHØJRE2)NENU’’ 
50  PRINT"CCRSR  HØJRE2  >  — ” 

SØ  PR  I  NT” C CRSR  NED3 , CRSR  HØJRE2)TINE 
R  C  RUS  ON  )  F 1  ” 

T’Ø  PRINT"CCR5R  NED, CRSR  HØJRE2 1  NETRO 
NOfl  C  RUS  ON)  F3" 

80  PRINT”CCRSR  NED, CRSR  HØJRE2)UR 
“  (RUS  ON ) F5 ’’ 

80  PR! NT” C CRSR  NED, CRSR  HØJRE2)STILL 

E  URET  C  RUS  0N)F7” 

81  SET  AS 

32  IF  AS”” C F1 ) "THEN  100  : REN  TINER 
83  IF  A$=”CF3) "THEN  200 
: REN  NETRONQN 
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94  IF  AS-”(F5)”THEN  300  : REM  UR 

95  IF  AS-  " ( F7)  ”THEN  400 
:REM  STILLE  UR 

96  IF  STS-TIS  THEN  500 

97  IF  UAL(CTS)-UAL(TI$)THEN  500 

99  GOTO  91 

100  PRINT”CCLR, CRSR  NED3, 

CRSR  HØJRE10)TIMER  ” 

101  PR  I  NT”  C  CRSR  HØJREIØ)—' ~ ' 

102  PR  I  NT  "i;  CRSR  NED5  ,  SPACE9 )  ___T  I L 
BESTEMT  TID  C  RUS  ON  11” 

103  PRINT"  I 

104  PR  I  NT  "STOPPE - 1 

105  PRINT"  I 

106  PRINT"  I _ EFTER  BESTEMT 

TID  (RUS  ON )  2  ” 

110  GET  AS 

112  IF  AS- ’’  1  "THEN  120 
114  IF  AS-”2”THEN  160 
116  GOTO  110 

120  PRINT”(CLR,CRSR  NED7, 

CRSR  HØJRES) HUORNA AR  SKAL  DER  STO 
PPES?” 

122  INPUT”(CRSR  NED2 ,  CRSR  HØJRE7KTT 
MMSS) ” j  ST$ 

124  POKE  56577,255 
126  IF  STS-TIS  THEN  500 
12B  PR I NT "(HOME, CRSR  NEDIS , SPACE) MENU 
:  TRYK  MELLEMRUMSTASTEN" 

130  GET  BS : I F  BS=”  "THEN  GOTO  10 
132  GOTO  126 

160  PR INT” (CLR , CRSR  NED3 , 

CRSR  HØJRE5)HU0R  LANG  TID?” 

162  INPUT”(CRSR  NED2 ,  CRSR  HØJRE7KTT 
MMSS) "j LAS 
164  THS-TIS 

166  CT$=STR$(UAL(TH$)+UAL(LAS) ) 

167  POKE  56577,255 

1B8  IF  UAL CCTS) -UAL (TI  S) THEN  500 
170  PR I  NT ” ( HOME , CRSR  NED1 9 , SPACE )MENU 
:  TRYK  MELLEMRUMSTASTEN” 

172  GET  BS : I F  BS- ”  "THEN  GOTO  10 
174  GOTO  168 

200  PR I NT "(CLR, CRSR  NED3 , 

CRSR  HØJREB ) METRONOM ” 

205  PRINT"(CRSR  HØJREB)——" 

210  PRINT”(CRSR  NED3 , CRSR  HØJRE2)IND 
TAST  TAKTSLAG  PR.  MINUT" 

215  I  NPUT "(CRSR  NED2.CRSR  HØJRE9)";KA 

220  PA-( 1/KA) *55000 

230  PR I  NT ” ( HOME , CRSR  NED19 , 

CRSR  HØJRE, SPACE)MENU 
:  TRYK  MELLEMRUMSTASTEN" 

288  FOR  T-54272  TO  54296: POKE  T,0 
:  NEXT 

290  FOR  T-l  TO  PA:NEXT:POKE  54296,15 

291  GET  AS: I F  AS- "  "THEN  10 

292  FOR  T-l  TO  PA:NEXT:POKE  54296,0 

293  GET  A$:1F  AS- "  "THEN  10 

294  GOTO  290 

300  PRINT "(CLR, CRSR  NED3 , 

CRSR  HØJRE15)UR” 

301  PRINT " (CRSR  HØJRE15 ) 

302  PRINT"(CRSR  NED3 , SPACE9 )  , - 


304  PRIMT”  I  , - -,  | 

306  PRINT”  II  || 

309  PRINT"  I  « - ->\ 

310  PRINT"  1 - -> 

312  TS-LEFTS(TIS,2) : M$-MID$(TIS ,3,2) 

: 2S-RIGHTS(TI$, 2) 


314  PR  I NT "(HOME, CRSR  NED10 , 

CRSR  HØJRE13 ) " ; T$ ; ”  ”  ; MS ;  ”  "  ;  ZS 

315  IF  STS-TIS  THEN  500 

316  IF  UAL(CTS)=UAL(TI$)THEN  500 

317  PR I NT "(HOME, CRSR  NEDIS, 

CRSR  HØJRE4 , SPACE)MENU 

:  TRYK  MELLEMRUMSTASTEN" 

318  GET  BS :  !  F  BS- ",  "THEN  GOTO  10 
320  GOTO  312 

400  PR  I NT "(CLR, CRSR  NED3 , 

CRSR  HØJREIØ ) SYNKRON  ISER  I NG” 

402  PRINT”(CRSR  HØJREIØ)——— 

405  PRINT"(CRSR  NED8)STIL  NU  URET  EF 
TER  ET  DER  GAAR  RIGTIGT." 

410  I NPUT "(CRSR  NED2 , CRSR  HØJRE9)(TT 
MMSS)  TIS 

420  PR  I NT "(HOME, CRSR  NED7 , 

CRSR  HØJREB)URET  ER  NU  I  GANG . " 

425  PR INT” (HOME , CRSR  NED19 , SPACE )MENU 
:  TRYK  MELLEMRUMSTASTEN” 

430  FOR  T-l  TO  300: NEXT 

:  FOR  T-54272  TO  54296 : POKE  T,0 
:NEXT: POKE  54296, 15 
440  PRINT"(CRSR  OP, CRSR  HØJRE6 , 
SPACE22) ” 

450  FOR  T-l  TO  300 : NEXT : POKE  54296,0 
460  GET  BS : I F  BS- "  "THEN  GOTO  10 
470  GOTO  425 

500  S -54272 : PR INT” (CLR , CRSR  NED11, 
CRSR  HØJRE7)TIDEN  ER  UDLØBET” 

: POKE  56577,0 

505  FOR  L-0  TO  24 : POKE  S+L,0:NEXT 
510  POKE  S+5 , 29 : POKE  S+15,10 
515  POKE  S+24 , 15 : POKE  S+4,21 
520  FOR  T-20  TO  255: POKE  S+1,T 
525  FOR  N-l  TO  7: NEXT: NEXT 
527  PR  I NT "(CLR, CRSR  NED11 , 

CRSR  HØJRE7)TIDEN  ER  UDLØBET” 

530  REM 

540  FOR  T-l  TO  1000: NEXT 
545  FR I  NT ” ( HOME . CRSR  NED11, 

CRSR  HØJRE) STOP  8  MENU 
:  TRYK  MELLEMRUMSTASTEN" 

550  GET  AS : I F  A$=”  "THEN  10 
550  GOTO  505 


GAMES 


Lambda/ZX8 1 

Mastermind 


I  alle  mastermind  til  ZX-81  er  der 
hidtil  ikke  set  en  variation,  hvor 
det  er  tilladt  at  bruge  4  ens  tal. 
Dette  er  til  gengæld  en  1 00%  kor¬ 
rekt  udgave,  der  følger  de  interna¬ 
tionale  regler. 

I  linie  47  sættes  den  rigtige  kode 
A$  ind  i  en  streng  C$.  I  takt  med, 
at  kodeløsningen  forsøges,  sam¬ 
menlignes  strengen  C$  med  B$. 


11  REM  O.  STEEN  HANSEN, 

12  PRINT  TAB  9; 


13  PRINT  TAB  9;‘J|'';TAB  11; 
TERMIND" ; TAB  22;“  C’ 

14  PRINT  TAB  9; 


15  RAND 

16  LET  A=INT  CRND*6) 

17  LET  B=INT  (RND*6) 

18  LET  C  =  INT  (RND*6) 

19  LET  D  =  INT  (RND*6) 

2©  PRINT  _ __  „ 

21  PRINT  AT  3,0; "SKRIO  FIRE  TA 

L  MELLEM  0  OG  5.  DET  SAMME  TAL 

KAN  GODT  FØREKGMMEFLERE  GANGE.” 

22  PRINT  AT  7,16; "KODETAL  R 
F" 

23  PRINT  „ 

24  LET  A$=STR*  A+STR*  B+STR*  C 

+  STR*  D 

25  FOR  X  =  1  TO  10 

26  PRINT  X;  " . M; 

27  LET  R=0 


26 

27 

28 

29  _  _ 

30  IF  LEN  B$<>4  THEN  GOTO  29 

31  PRINT  TAB  16;B*(1);TAB  18;  B 
$(2) ;TRB  2ø;B*(3);TAB  22;B*<4); 

■32  GOSUB  47 

33  FOR  2=1  TO  4 

34  IF  B$(Z  TO  Z)=C$(Z  TO  Z)  TH 
EN  GOSUB  49 

35  NEXT  Z 


LET  F  =ø 
INPUT  B$ 
IF  LEN  Bl 
PRINT  TAf 


36  FOR  0=1  TO  4 

37  FOR  Z  =  1  TO  4 

38  IF  B$(G  TO  Q)=C$(Z  TO  Z)  AN 
NOT  C*(Z  TO  Z)  =  "■"  AND  NOT  B$  ( 
TO  O) ="■"  THEN  GOSUB  53 

39  NEXT  Z 
4ø  NEXT  O 

41  PRINT  TAB  25;R;TAB  29; F 

42  IF  R  =4  THEN  PRINT  TAB  1 1 ;  13 


43  Tf 


43  IF  R  =  4  THEN  GOTO 

44  NEXT  X 

45  IF  R  <  4  THEN  PRINT 
R" ; TAB  16; A$ ( 1) ; "  ";A* 
(3) ; “  “ ; A$ (4) 

46  GOTO  57 

47  LET  C  $  = A  $ 

48  RETURN  _ 

49  LET  CJIZ  TO  2)  =“■ 

50  LET  B*(Z  TO  Z) ="■ 

51  LET  R  =R  +■  1 

52  RETURN  _ 

53  LET  C*(Z  TO  Z)  ="■ 

54  LET  B*(Q  TO  O) =  ■ 

55  LET  F  =F  + 1 

56  RETURN  _ 

57  PRINT  AT  21,0;  ET 

7  (U/N)  : 

53  INPUT  S* 

59  CLS 

6ø  IF  S*»iad“  THEN  RU 

61  STOP  „ 

62  SAUE  "MASTERMINa" 

63  RUN 


PRINT  "KODEN 

";a»(2);“ 


Z  J  =“■' 
Z)  ="■' 


0; "ET  SPIL  MERE 


CHFILLENGE 


Amstrad 


Afbetaling  6 128 


Betaler  du  af  på  din  Amstrad 
6128,  eller  noget  andet,  Kan  du 
taste  dette  selvinstruerende  pro¬ 
gram  ind  og  få  en  masse  fedt  at  vi¬ 
de.  I  programmet  er  afbetalings¬ 
renten  sat  til  2.75  %  pr.  måned, 
men  dette  kan  du  ændre  frit  i  linie 
510. 

Alle  inputkommandoer  er  sikret  | 
mod  bogstaver  og  "tomme"  in¬ 
puts.  dog  ikke  i  linie  480. 

Ved  "Interne  oplysninger"  er  ad¬ 
gangsordet  "TEST85".  Dette  kan 
ændres  i  linie  1 740.  Første  gang. 
man  taster  et  forkert  password.  é 
returneres  til  menuen,  men  anden 
gang  smides  man  ud  af  program¬ 
met.  Dette  kan  ligeledes  ændres  i 
linie  1 740.  hvor  det  bestemmes  af 
CALL&BB14. 

Carsten  Leth  Andersen 


/C** 


130  MODE  2:  INK  0,0:  INK  1,24:  INK  2.0.-B0RDER  OiP 
EN  1: PAPER  O 

140  DEF  FNA ( X ) =RQUND ( X , 2) 

150  ON  ERROR  GOTO  100 
160  SYMBOL  AFTER  123 

170  SYMBOL  123,126,216,216,254,216,216,222:  *  “ 
*" 

180  SYMBOL  125,60,36,126,102,126,102,102:  ’  "å" 
190  REM 

230  LOCATE  34,1:  PR  I NT "AFBETALING  2" 

240  PRINT  STRING* (79, CHR* (95) > 

250  LOCATE  28, 8: PRINT"F1 :  GENERELLE  BETINGELSER 

260  LOCATE  28, 10: PRINT"F2:  NYE  VILKÅR" 

270  LOCATE  28, 12: PRINT"F3:  SPECIELLE  FORHOLD" 
280  LOCATE  28, 14: PRINT"F4:  INTERNE  OPLYSNINGER" 
290  LOCATE  28, 16: PRINT"F5:  RENTEN  (  I  KR.  )  FOR 
EN  MaNED" 

300  LOCATE  1,23:  PRINT  STRING* (79, CHR* (95) ) 

310  LOCATE  1,24: PR I  NT  CHR* (24)"  COPYRI 

GHT:  CARSTEN  ANDERSEN  S<  F.  LERBæK 

"CHR* (24) 

320  PRINT  CHR* (7) 

330  Q*=INKEY*:IF  Q*="“  THEN  330 
340  Q=VAL (0*) 

350  ON  Q  GOSUB  370,760,1040,1630,2420 
360  IF  0< 1  OR  Q>5  THEN  330  ELSE  190 
370  REM 

400  CLS: LOCATE  30,1:  PR I NT "GENERELLE  BETINGELSE 
R" SPRINT  STRING* (79, CHR* (95) ) 

410  LOCATE  1,5:  INPUT" INDTAST  AKTUELLE  KOBSPRIS 
:  ",P* 

420  P=VAL(P*):IF  p<=0  THEN  410 

430  LOCATE  1,7:  INPUT" INDTAST  UDBETALING:  " , UD* 

:  IF  W2=l  AND  ROO  THEN  900 

440  UD=VAL (UD* ) :  IF  UD<=0  THEN  430 

450  LOCATE  1,9:  INPUT" INDTAST  AFDRAGSTID  I  MaNE 

DER:  " , N* 


460  N=VAL (N*) :  IF  N<=0  THEN  450 
470  IF  N< 1  THEN  R=P:  GOTO  640 

480  LOCATE  1 , 1 1 : INPUT" INDTAST  KOBSDATO  (MD,aR): 
“ , MDS, A* 

490  MD=VAL (MD*> : A=VAL (AS) : I F  MD<=0  OR  A<=0  THEN 
480 

500  IF  W=1  THEN  520 
510  1=2. 75: W=0: W1=0 
520  1=1/100 

530  LOCATE  1,1 3: PRINT  STRING* (32, CHR* (95) ) 

540  R=(P*I*(l+I)/'N)/(  (  (1  +  I)^N)-1) 

550  LOCATE  1 , 16: PRINT" AFDRAG  PR.  MaNED: “FNA (R) : 
RE=(N*R)-P 

560  LOCATE  1,18: PRINT"FRADRAGSBERETTIGEDE  RENTE 
R  IALT: "FNA (RE) 

570  LOCATE  1 , 20: PR I NT "SAMLET  KOBSPRIS: "FNA (RE+P 
) 

580  R1=P:R3=1 : IF  FL=1  THEN  RETURN 
590  GOSUB  650 
600  PRINT  CHR* (7) 

610  LOCATE  3 1,24 SPRINT  CHR* (24)"  KLAR  -  TRYK  EN 
TAST  "CHR* (24) 

620  CALL  &BB18 
630  RETURN 

640  PRINT : PR I NT "KONTANTPR I  S: "P: RETURN 
650  A 1 =0 : N 1 =0 : Y=7 
660  FOR  G= 1  TO  N 
670  I1=I1+(R1*I> 

680  R1  =  (R1*I>  +R1 — R:  NI =N1  +  1 

690  IF  N1=(12*R3)-MD  THEN  GOSUB  730 

700  IF  N1=N  THEN  GOSUB  730 

710  NEXT 

720  6=0: RETURN 

730  LOCATE  50, 5: PRINT  CHR* (24)"  RENTER:  "CHR* <2 
4) 

740  LOCATE  50, Y: PRINT"RENTE  I"A+A1 " (KR) : "FNA ( 1 1 
)  :  A 1  =A  1  + 1 :  R3=R3+ 1 :  1 1=0:  Y=Y+2 
750  RETURN 


CHflLL£NG£ 


CHflLLGNGE 


A (UP) ; CHR* (24) 

2060  PRINT  CHR* (7) 

2070  LOCATE  31  ,'24 1  PRINT  CHR*  < 24)"  KLAR  -  TRYK  E 
N  TAST  "CHR* (24) 

20B0  CALL  8<BB18 
2090  RETURN 
2100  REM 

2110  REM  *##*  INDKOBSPRIS  M.M.  #*** 

2120  REM 

2130  CLS: LOCATE  23, 1 : PRINT" INDKOBSPRIS  +  OMKOST 
NI NGER  +  AVANCE" 

2140  PRINT  STRING*  < 79, CHR* (95) ) 

2150  LOCATE  1 , 7 s  INPUT" INDTAST  UDSALGSPRIS:  ",U* 

2160  U=VAL(U*):IF  U<=0  THEN  2150 

2170  LOCATE  1 , 9: INPUT" INDTAST  OMKOSTNINGER:  " , O 

M* 

2180  OM« VAL (OM*) : IF  0M<=0  THEN  2170 

2190  LOCATE  1 ,  1 1 :  INPUT"  INDTAST  7.-AVANCE:  ",V1* 

2200  VI  =VAL  ( VI *)  :  V1=V1  / 1 00:  IF  VIOO  THEN  2190 

2210  V2=U- <U*0. 22) : AV=V2*V1 : V3=V2-AV 

2220  LOCATE  1 , 1 3 : PR I NT  STR I NG*  <  30 , CHR* ( 95 ) ) 

2230  LOCATE  1,1 6: PRINT  CHR* (24) "BRUTTOAVANCE: "F 
NA (AV) 

2240  LOCATE  1,18: PRINT"PRISTILBUD: "V3— OM; CHR* (2 
4) 

2250  PRINT  CHR* (7) 

2260  LOCATE  31, 24: PRINT  CHR* (24)"  KLAR  -  TRYK  E 
N  TAST  "CHR* (24) 

2270  CALL  &BB18 
2280  RETURN 
2290  REM 

2300  REM  *#*#  EFFEKTIVE  RENTE  **** 

2310  REM 

2320  CLS: LOCATE  35, 1 : PR I NT "EFFEKT I VE  RENTE" 

2330  PRINT  STRING* <79, CHR* (95) > 

2340  LOCATE  1 , 5: INPUT" INDTAST  RENTEN  PR.  MDR. : 


2350  I=VAL(I*):IF  I<=0  THEN  2340 

2360  I A= ( ( 1-M  I / 100) ) "1 2) : IB=  < I A-l ) *  100 

2370  LOCATE  1,7 .-PRINT  CHR*  (24)  "EFFEKTIVE  RENTE 

PRO  ANNO: "FNA (IB) 

2380  PRINT  CHR* (7) 

2390  LOCATE  3 1,24: PRINT  “  KLAR  -  TRYK  EN  TAST  " 
CHR* (24) 

2400  CALL  &BB1B 
2410  RETURN 
2420  REM 

2430  REM  *#**  RENTEN  FOR  EN  MåNED  *### 

2440  REM 

2450  CLS: LOCATE  32, 1 : PR I NT "RENTEN  FOR  EN  MaNED" 
2460  PRINT  STRING* <79, CHR* (95) ) 

2470  LOCATE  1 , 5: INPUT" INDTAST  MaNED  (1-12):  " , M 
D* 

2480  MD=VAL <MD*) : IF  MD<=0  THEN  2470 
2490  LOCATE  1 , 7: INPUT" INDTAST  PRIS:  ",P* 

2500  P=VAL  < P* ) : IF  P<=0  THEN  2490 

2510  LOCATE  1 , 9: INPUT" INDTAST  AFDRAG  PR.  MDR.: 

",R* 

2520  R=VAL(R*):IF  R<=0  THEN  2510 

2530  LOCATE  1 , 1 1 : INPUT" INDTAST  RENTE:  ",I* 

2540  I =VAL ( I  * ) : IF  I<=0  THEN  2530 
2550  Y=P 

2560  Y3=Y* (1/100) : Y= ( Y+Y3) -R:  Y2=Y2+1 

2570  IF  Y2=MD  THEN  2580  ELSE  2560 

2580  LOCATE  1,1 3: PR I NT  STRING* (30, CHR* (95) ) 

2590  LOCATE  1,1 6: PRINT  CHR* <24 ) "RENTEN  UDGOR: "F 
NA ( Y3  > "KR. " 

2600  PRINT  CHR* (7) 

2610  LOCATE  33, 24: PR I NT"  KLAR  -  TRYK  EN  TAST  "C 
HR* (24) 

2620  CALL  &BB18 
2630  RETURN 


Program 

presseren 


Herer'Compactor"!  Programmet, 
der  presser  programmer  som  ci¬ 
tronpresseren  presser  de  små  sure 
gule.  "Compactor"  er  en  maskin¬ 
koderutine  til  dem.  der  gerne  vil 
ha’  BASIC-programmeme  til  at  fyl¬ 
de  mindre  i  en  Spectrum. 

Ideen  i  programmet  er.  at  f.eks. 
1564.54  ændres  til  VAL 
"1 564.54".  hvilket  sparer  3  bytes  i 
hukommelsen.  Men  alt  det  prakti¬ 
ske  ordner  programmet  autom¬ 
atisk  for  dig.  hvis  du  taster  det  ind. 
kører  det,  skriver  startlinienum¬ 
meret  og  starter  kassettebåndet 
med  det  program,  du  vil  "presse". 
Hele  rutinen  er  1 22  bytes  lang  og 
startes  med  RAND  USR  start. 

Peter  Lumbye 


lé  ^nput  "Start:";start 
2ø  FOR  r  csiart  TO  start+121:  R 
EAD  a:  POKE  f,a:  LET  tOt=tOt+a: 
NEXT  I 

4-0  IF  tot  011606  THEN  PRINT  "E 
rror":  6EEP  1,0:  STOP 

5ø  INPUT  "Narae at:  IF  LEN  a* 
>10  OR  LEN  a  $  < 1  THEN  GO  TO  5ø 
60  SRVE  a*C0DE  s  tart,  122 
1000  DATA  42,83,92,43,237,75,75, 
92,35, 167 , 237 ,66,9, 200 ,35,35,78, 


35 , 70,229,35 , 126 , 254 ,13,32,3, 209 
,24,231,254, 14,32,243,209,213,11 
,11,11,197,120, 13.27,121 , 18,229 , 
43,126,254,47,40,19,254,46,56,15 
,  254 , 196,40 , 4,254 ,58,48,7,35,35, 
119,43, 43,24 ,231,35,54, 1?6 ,35,54 
, 34 , 225 , 35 , 35 , S4 , 34 , 35 
1010  DATA  34,93,213,35,35,35,229 
,42,89,92, 167 , 237 , 82 , 68 , 77 , 225 , 2 
37 , 176 ,42,75, 92,43,43 , 43,34 , 75,9 
2,42,89,92,43,43,43,34,89,92, 225 
, 193,24,155,0,0,0 


[F| 


C 16/PLUS  4 

Mission  Amazonas 


Du  er  udvalgt  til  en  redningsmis¬ 
sion  på  floden  Amazonas,  som  be¬ 
vogtes  af  fjendtlige  guerillasolda¬ 
ter  i  kanonbåde.  Men  ikke  nok 
med  at  der  bliver  skudt  efter  dig. 
du  skal  også  passe  på  mineme.  og 
sejle  under  broerne  uden  at  smad¬ 
re  ind  i  bropillerne.  Red  de  stran¬ 
dede  videnskabsmænd  ved  at  læg¬ 
ge  til  bådebroerne.  Tank  op  ved  at 
samle  de  blå  benzintanke  op.  Du 
kan  vælge  imellem  65536  versio¬ 


ner  af  floden,  eller  en  tilfældig. 
Der  kan  både  bruges  joystick  og 
tastatur,  tasterne  er: 

A  og  Z  -  motorbådens  hastighed 
'og>  -  styr  til  venstre/højre 
skyd  med  mellemrumstangenten. 
NB:  Det  er  vigtigt  at  indtaste  cur- 
ser-tegnene  (angivet  i  parentes, 
eks..-  (UP)  og  mellemrummene 
præcist,  da  skærmen  ellers  kom¬ 
mer  til  at  se  ret  speciel  ud. 


0  REM  •**  MISSION  AMAZONAS  C16  *** 

1  COLORO . 1 : COLOR1 ,7.4: COLOR4 ,3.3 

2  PRINT" (CLR) (DOWN) (DOWN) (DOWN) ";SPC(0> ; "TRYK  TRE  GANGE  P 
AA  (WHT) RETURN (BLK) • 

3  PRINT" (DOWN) (DOWN) (DOWN)T  D000  D7FF  3800" ; CHRJ ( 13) ; "(DO 
WN) X" ; CHR$ ( 13) ; " (DOWN) RUN10" : " (UP) (UP) (UP) (UP) (UP) (UP) (UP 
) (UP) (UP)"; : MONITOR 

10  GOSUB2000:DIM  A*(15) ;DIMD%(1020) 

15  GOSUB9000 
20  F0RN-1T015 

30  A$ (N) -LEFTS ( " (RVS)  “.N+l) ♦" (OFF)M  E 

(RVS) "+LEFTS ( "  " . 16-N) 

40  NEXT 

50  FORN-0TO999 :NEXT ;GOT01300 

100  SCNCLR 

101  COLORO. 1 

110  F0RN-1T024; PRINT" (RVS) (BLK) 

"i ; NEXT 

115  PRINT"  (OFFKHO 

ME)  :POKE4071 , 160 


120  PRINT" (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (BRN) (RVS) 
SPEED;  (DOWN) (DOWN) (DOWN) (LEFT) (LEFT) (LEFT) (LEFT) (LEFT) ( 
LEFT)  (LEFT)  (LEFT)  (BLK)  lOO-(LEFT)  (LEFT)  (LEFT)  (DOWN)  (D0WN)7 
5- (LEFT)  (LEFT)  (LEFT)  (DOWN)  (DOWN) 50- (LEFT)  (LEFT)  (LEFT)  (DOW 
N) (DOWN) 25- (LEFT) (LEFT) (DOWN) (DOWN) O-(YEL) 

121  PRINT" (DOWN) (DOWN) (DOWN) (LEFT) (LEFT) (LEFT) (LEFT) (LEFT 

) (LEFT) (BRN)  (HOME) (DOWN) (DOWN) (BLK)  POINT;  ";SP 

C<26) ;";HIGH(BRN) BENZIN:  “ ;SPC(26) ; “ 

122  PRINT" (DOWN) (DOWN) (DOWN) (LEFT) (LEFT) (LEFT) (LEFT) (LEFT 
) REDD . (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DO 
WN)  (DOWN)  (DOWN)  (DOWN)  (DOWN)  (DOWN)  (LEFT)  (LEFT)  (LEFT)  (LEFT) 
(LEFT) 

123  PRINT" (HOME) (DOWN) (DOWN) (BLK) ";SPC(27) ; ;PRINTUSING"«# 
♦**««" :HI*; 

124  PRINT" (HOME) (LBLU)  MISSION  AMAZONAS  (C)  TAST  19 
87  (OFF) " : 

125  PRINT" (RVS) : GOSUB1 000 : PRINT" (CLR) 

127  FORN-2177TO2202 : POKEN. 68 ; NEXTN 

130  F0RN-210TO233:POKE2048+N. 116 :POKEN+3072, 195  i POKEN*272 
8. 116; POKEN* 3752. 195; NEXT 

135  POKE2257 . 116 : POKE3281 . 213 : POKE2282 . 116 ; POKE3306 . 201 ; P 


0 


GAMES 


OKE2937.1 16 :POKE396 1.202 

138  POKE2962. 116 : POKE3986 . 203 :FORN-249TO849STEP40 : POKEN+2 
048, 116 : POKEN+3072, 194 

1 39  POKEN+2073 .116: POKEN+3097 . 194 : NEXT 
180  GETZS : I FZ$<  >" "THEH180 

190  COLOR0.7.4:COLOR1.6.3:TIS-"000000":B*-RND(-G) :TRAP110 
O 

200  R*-R*+RND(1)*3-1 

205  IFR*<10RR*>15THENR*-R1* 

210  GETZS:E-E+(ZS-VS)-(ZS-HS) 

220  POKEE1S5.32 

221  PRINT  CHR$ (27) ; "W(HOME) " ; AS (R*) : : P0KE3346 . 194 :POKE232 
2.116 

222  IFPEEK (E+40) -32THENP0KEE-984 . 114 : POKEE+40 . 88 

224  P-PEEK(E) i IFPEEK (E) -32THENPOKEE. 65 :POKEE-1024 . 1 : ELSE3 
00 

228  IFZ*-F$THEN700 
230  IFZ$-U*THENIFS>0THEN410 
233  IFZS-DSTHENIFS<90THEN400 
235  FORN-OTOS : NEXT 

285  Rl*-R* , El*-E iT-T+1 : F-F- (90-S) /19-4 

287  IFF<-0THEN450 

288  POKE217?+(F/100) . O : IFD*(T) < >0THEN500 
290  60T0200 

300  IFP-80THENFORN-lTOS*3+20:NEXT:GOTO221 
305  IFPO84THEN320 

308  V0L4 : POKE2177+(F/100) .68:FORN-1T0400STEP30:F-F+20 
310  POKE2177+ (F/100) . 68:SOUND2.N, 2 
315  NEXTN:F“F+50 :G0T0285 
320  IFPEEK(E) -102THEN900 

322  COLORO . 8 : FORN-OT040 : NEXT : S0UND3 .700.400: COLORO .7.4 
325  FORN-6TOOSTEP-1 : VOLN 

330  FORK-81TO120 : POKEE.K: POKEE-1024.K:NEXTK.N 
390  GOTOllOO 

400  S-S+7 : VOL3 ; SOUND1 . 400-S . 1 : POKE2693- (40* INT( (90-S) /10) 

) . 0 : G0T0285 

410  S-S-7 : VOL3 : SOUND1 .400-S. 1 :P0KE2733-(40* INT( (90-S)/10) 

)  .  120-.GOTO285 

450  PRINT" (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (RGHT) (GRY1 
)  DU  LOB  TOR  FOR  BENZIN  ” 

455  FORN-900TO500STEP-4 : SOUND1 . N . 2 : SOUND2 . N+2 . 2 : NEXT 

460  GOTOllOO 

500  IFD*(T) >9THEN800 

503  ON  D*(T)  GOTO  510.520.530.540.560.1100 
505  GOTO240 

510  B*-R*+RND ( 1 ) "5+3324 : POKEB* . 83 : POKEB*-1024 . 0 : GOTO200 
520  PRINT"  (HOME)  ";SPC(R*1  :"(YEL)  (OFF)rT»T»T»T-(RVS)  (GRN)  " 
; :GOT0200 

530  B*-R*+RND  ( 1 )  *5+3324  :  POKEB* .  84  :  POKEB*- 10 24 . 20  :  GOTO200 

540  B*-R*+RND ( 1 ) *  4+3325 : POKEB* . 78 : POKEB*-1024 . 41 

550  IFD*(T+9)O5THEND*(T+9)-B*+360:G0T0200 

560  PRINT" (HOME)  (RED)  (BLK) (OFF)  I  " :LEFT* ( "I  III  I  I  I  I  III  I  I  I 

I  I  I  I  I  I  I  ",R*) : " (GRN) (RVS) " ; :D* (T+9) -R*+3325 :GOTO200 

600  IFPEEK(E-1)<  >71THEN200 

605  VOL5 

610  Y*-360+3324:H*-l 

630  POKEY*.204+H*:SOUND3. 600.1 

635  IF  Y*-D*(T) +359THEN660 

640  FORK-0TO50:NEXTK 

645  POKEY*. 71 :  Y*-Y*+l 

650  IFH*-1THENH*-0:GOT0630 

655  H*-l:GOTO630 

660  FORK-0TO50: NEXT: POKEY*. 71 :S*-S*+2500:GOSUB1000 

665  FORN- 100T0200STEP20 : SOUND1 . N+600 . 3 : SOUND2 . N+598 . 3 : FOR 

K-0TO35 : NEXTK , N 

670  POKE3469  +M*" 80.89: POKE2445+M**  80.128: M*-M*+ 1 
690  D*(T) -0 :GOT0200 
700  VOL4 
710  Y*-E 

715  Y*-Y*-40:IFPEEK(Y*X>32THEN740 
720  POKEY*. 66:POKEY*-1024. 120 
725  SOUND3.YV4.3 
730  POKEY*. 32: GOTO? 15 
740  Q-PEEK(Y*) : IFQ-800RQ-84THEN715 

750  IFQ< >83ANDQ<  >78ANDQ<  >77THENVOLO:POKEY*+40.32:GOTO285 
760  VOL7 : SOUND3 . 700 . 30 : F0RN-78T096 : POKEY* . N : POKEY*-1024 . 7 
2+ (RND(l) *2) "43 : NEXT 
770  POKEY*. 32 

780  I FQ-78THENS*-S*+ 100 : GOSUB1 000 : G0T0285 
795  GOTO  285 

800  IFD*(TXE-90THEN600 

801  IFPEEK(D*(T) )<  >78THEN200 
803  IFD*(T) >E+20THEN850 

805  VOL4 : 1 FRND ( 1 ) *  8  > 1 ANDD* ( T+ 1 ) <  >STHEND* (T+ 1 ) -D* ( T) »40 : D* 
(T) -0 :GOTO200 

810  Y*-D*(T)  :H*-1:IFY*>ETHENH*— 1 
820  Y*-Y*+H*:IFPEEK(Y*X>32THEN320 
830  POKEY*. 70:POKEY*-1024. 120 

840  SOUND3 .  Y*/4 . 3 :  FORK-OTOl :  NEXT :  POKEY* .  32 :  GOTO820 

850  IFRND(l) *2>1THEN200 

853  Y*-D*(T)  :H*-1:  IFY*>E+40THENH*—  1 

855  Y*-Y*+H*: IFPEEK(Y*)< >32THEN870 

860  POKEY*-1024. 120: POKEY*. 70 

865  SOUND3 , Y*/4 , 3 : POKEY* . 32 : G0T0855 

870  IFPEEK (Y*) -88THEN855 

875  30UND3.700.5 :D*(T) -0 :GOT0200 

900  POKEE .  65 : POKEE-1024 . 0 :  V0L3 : SOUND3 . 300.55 

910  F0RK-1T0999 :NEXT 

920  G0T0285 

1000  CHAR1 .8.2." (BLK) " :PRINTS*; 


1010  CHAR1 .10.6.""  :PRINTCHR$  (27)  ;  "T"  ;SPC(24)  ;  "  (DOWN)  (DOWN 

) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (D 

OWN) (DOWN) (DOWN) (DOWN) ";CHR*(27) : "B(GRN) "j : RETURN 

1060  R*-6 : Rl*-R* :E-3690 :E1*-E : S-90 :F-2600 : S*-0 :T-0 :M*-0 

1090  RETURN 

1100  TS-TIS:TRAP1100 

1110  PRINT" (HOME) (HOME) (CLR) (RVS) (LBLU)  MISSION  AMAZONA 
S  (C)  TAST  1987  (OFF)": 

1120  PRINT" (DOWN) (BLKJ  So  LANGT  NOEDE  DU: (DOWN) “ 

1125  PRINT" (GRN) ♦♦♦♦♦♦♦♦•♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ “ 

1130  PRINTLEFT* ( " (YEL) (RVS) 

". l+(T/24) ) 

1133  IF  T>10ANDT<50TH£NPRINT" (YEL)I " 

1135  PRINT" (GRN) (RVS)******************«***«««»*«*«***+«* 
•  •  *  •  " 

1140  PRINT" (DOWN) (BLK)  DET  SVARER  TIL" ; INTfT* 100/1010) : "* 
1143  PRINT" (DOWN)  DU  BRUGTE": 

1145  IFMIDS (TS .3. 2) <  >"00"THENPRINTVAL(MID$ (TS.3, 2) ) : "MIN. 
OG": 

1147  PRINTVAL (RIGHTS (TS , 2) ) ;"SEK." 

1150  B-T/(  (VAL(LEFTS(TS.4) )  "60+VAURIGHTS (T$.  2) ) )  *3) 

1160  IFB>1THENS*-S*+INT(B*999)  :  PRINT"  (DOWN)  TIDSBONUS :":  I 
NT(B"999) : ELSEPRINT" (DOWN)  INGEN  TIDSBONUS" 

1170  PRINT" (DOWN)  SAMLEDE  POINT: ":S* 

1175  IF  S*>HI*THENPRINT" (DOWN) (GRY1) ($130)  DETTE  ER  HIGH- 
SCORE ( * 1 32 ) " : H I *-S* : ELSEPR I NT" ( DOWN)  H I GH-SCORE : “ : H I * 

1177  nn'"T"-"-n“‘ 

: PRINT 

1178  PRINT" (RVS) i  i  ( 

OFF)  " 

1180  PRINT" (DOWN) (LGRN)  TAST  (WHT) 'FIRE' (LGRN)  ELLER  (WHT 
) MELLEMRUM  (LGRN) FOR  START" 

1185  IFH$<  >""THENPRINT"  (DOWN)  TAST  (WHT)  N(LGRN)  FOR  NY  FL 
OD” 

1188  GETZ*:IFZ*<>""THEN1188 
1190  GETZS: IFZ$-"N"THEN1300 

1193  IFZS-"T"THENHS-"6" :VS-"D" :U$-"5" :D$-"R" :FS-Z$ :G0SUB1 
060:GOT0100 

1195  IFZS-"  "THENHS-"  .  " :  VS-" ,  :US-"A"  : D$-"Z"  :FS-Z$  :G0SUB1 
060 : GOTOIOO 
1199  GOTO1190 

1300  TRAP1300:PRINT"(CLR) (RVS) (LBLU)  MISSION  AMAZONAS 
(C)  TAST  1987  (OFF) " ; :COLOR0.7.4 
1310  PRINT" (DOWN) (DOWN) (DOWN) (DOWN) (LGRN)  DU  KAN  VxLGE  IM 
ELLEM  65536  FORSKELLIGE  FLODER." 

1315  CHAR1.1.9.-" 

1320  PRINT" (BLK) VxLG  EN  FLOD  ( (WHT) 1-65536 (BLK) )  ELLER  IN 
DTAST" 

1325  PRINT"  ' (WHT)T(BLK) •  FOR  EN  TILFxLDIG  FLOD"; 

1330  G-0: INPUT  GS : IFG$-"T"THEN1345 
1335  G-VAL(GS) 

1340  IFG>655360RG< 1THEN1315 

1345  PRINT" (DOWN) (DOWN) (DOWN)  DET  VIL  TAGE  ET  OJEBLIK  AT 
GENERERE  FLODEN." 

1350  FORN-0TO1020 : D* ( N) -0 : NEXT : GOSUB2000 
1390  IFG-0THENB*-RND(-TI) : ELSEB*- RND ( -G ) 

1500  FORN-IOOTOIOOOSTEPSO : D* (N-25) -2 : D* (N) -3 : NEXT 

1520  FORN-20T0820STEP200:D*(N+100)-5 

1530  B*- [ 1600-N) /350 :C*- ( 1650-N) /100+2 

1540  FORK-N-20TON+180STEP2 

1550  IFD* (K) -OAND RND ( 1) • 19  >C*THEND* (K) -4 

1570  I FD* (K) -OANDRND ( 1) • 5  >B*THEND* (K) -1 

1580  NEXTK. N:D*(1010)-6 

1585  GOSUB1060 

1588  IFVS-""THEN1180 

1590  GOTOIOO 

2000  COLORO. 1 : COLOR1 .5 . 4 :C0L0R4. 3.3 :PRINT" (CLR) " 

2010  CHAR  1 .6 . 6 . "M  I  S  S  I  O  N  (CYN)A  M  A  Z  O  N  A  S" 

2015  PRINT :PRINT  “ 

2020  FOR  N-l  TO  12  :COLOR1 .7.N/2 : PRINT"—"  :  :NEXT 
2030  CHAR  1.12. 12. "(C)  TAST  1987" :CHAR1 . 1 . 17, “" 

2099  RETURN 

9000  DATA  4.4.32.32.2.2.16.16 

9005  DATA  24.24.60.90.24.36.36.0 

9010  FORN-0TO15 :READ  A:POKE  14336+88"8+N. A :NEXT 

9015  DATA255 . 153. 153 . 153 . 153. 153.153.255 : FORN-0TO7 i READA : 

POKEN +14336 +?1"8.A: NEXT 

9020  DATA  8.28.62.62.62.62.62.62 

9030  FORN-OT07 : READ  A:POKE  14336+65" 8+N.A: NEXT 

9034  DATA  0.191.219.7.7.216,239.0 

9036  DATA  0.239.216.7.7.219.191.0 

9038  DATA  0.0.0.0.195.36.255.126 

9040  DATA  1,2.4.15.20.44.69.254 

9042  DATA  255.24.24.255.66.129.0.0 

9045  DATA  255.24.24.255.60.126.255.126 

9046  DATA  128.64.32.240.72.124.198.127 

9047  DATA  0.0.0.0.0.36.24.60 

9048  DATA  0.124.71.125.57.40.56.124 

9050  FORN-0TO71 : READA : POKE14336+76*  8+N , A : NEXTN 

9060  DATA  63.204.204.255,204.204.207.0 

9065  DATA  24.0.60.102.126.102.102.0 

9070  FORN-0TO15 : READA : POKE14336+86*8+N. A : NEXT 

9080  DATA  255.255.127.62.28,8.0.0 

9085  FORN-0TO7 : READA : POKE14336+8*90+N, A : NEXT 

11060  KT-DEC ( "FF1 2 “ ) 

11070  POKEKT.PEEK(KT) AND251 

11080  POKEKT+1 . 14*4 

11090  POKE52. 55 :POKE56, 55: RETURN 


CHALLENGé 


ZX81 


Bedste  Linie 


Dette  lille  program  til  en  ZX-81 
med  1 6K  RAM  finder  den  "bedste" 
linie  gennem  et  antal  punkter,  der 
i  forvejen  er  lagt  i  lageret.  Derefter 
fortæller  computeren,  hvor  tæt 
punkterne  ligger  på  denne  "bed¬ 
ste"  linie.  Sagt  på  en  anden  måde, 
finder  den  korrelationskoefficien¬ 
ten. 

Som  en  ekstra  detalje  spørger 
computeren,  hvor  mange  decima¬ 
lers  nøjagtighed  man  ønsker.  Efter 
alle  beregninger  er  foretaget,  skri¬ 
ver  computeren  ligningen  for  li¬ 
nien.  som  den  tegnes. 

Peter  Høi  Hansen 


2  LET  0=0 
4  LET  fil=0 

6  LET  8=0 

7  LET  B1=0 

8  LET  C  =0 

10  PRINT  " HUOR  HRNGE  DECIMRLER 

12  INPUT  MB 

13  IF  NB<0  THEN  LET  NB=ø 
14.  LET  NB=10**NB 

15  PRINT  RT  0,0; -HUOR  HRNGE  PU 
NKTER  SKRL  LINIEN  TEGNES  EFTER 

" 

20  INPUT  N 

22  IF  N  < 2  THEN  PRINT  “MINDST  T 
O  PUNKTER . " 

23  IF  N  <2  THEN  GOTO  20 

25  CL  5 

27  PRINT  " INDTRST  NU  PUNKTERNE 

26  PRINT  RT  10,2; 

30  FOR  M=1  TO  N 
35  PRINT  "s".; 

40  INPUT  X 
45  PRINT  X; 


50  INPUT  Y 
55  PRINT  Y ; ” ) “ ; 

57  IF  M <N  THEN  PRINT  ",  " j 

60  LET  R=fi+X 
65  LET  R1=R1+X*X 
70  LET  B=B+Y 
75  LET  B1=B1+Y*Y 
80  LET  C=C+X*Y 
100  NEXT  M 
110  LET  X3-H/W 
115  LET  YG=B/N 
120  LET  XU=R1/N-XG*XG 
130  LET  YU=Bl/N-YGiYG 
140  LET  M= (C/N-XG*YGJ /XU 
ISO  LET  B=YG-M*XG 

160  LET  R=IMT  tM*M*XU/YU*MB+ . 5) 
/NB 

165  LET  B  =  INT  (B*NB+.5)/NB 
170  PRINT  RT  0,0; “  LINIENS  LIG 
N IMG  ER: "  ; RT  3 , 2 ; " Y =" ; INT  <M*NB 

4 .5)  /NB;  *'  *X“  ; 

130  IF  B  <  0  THEN  PRINT  B 
190  IF  B  >  0  THEN  PRINT  "  +  ",B 
200  PRINT  RT  5,2; “KORRELAT IONEN 
ER  :  " ; R 


GAMES 


Texas  TI99/4A 


100  FOR  HI=1  TO  5 

110  LET  N$(Hl)="TI-99/4A" 

120  NEXT  HI 

130  CALL  CLEAR 

140  CALL  CHAR( 122, "FFFFFFFFF 

FFFFFFF" ) 

150  CALL  COLOR (12,5,5) 

160  CALL  SCREEN ( 5 ) 

170  PRINT  "  zz  zzzz  zz 
zz  zzz" 

180  PRINT  "  z  z  z  z  z  z 
z  z  z" 

190  PRINT  "  z  zzzz 
z  z" 

200  PRINT  "  zz  zzzz  z  z 
z  zz" 

210  PRINT  "  z  z  zzzz 

z  z" 

220  PRINT  "  zzz  z  z 


z  z  z" 

230  PRINT  "  zz  z  z  z 
zz  zzz"  :  :  : 

240  PRINT  "  zz  zzz  zzz  zz 
zz  z  z" 

250  PRINT  "zzz  z  z 

z  z  z  z  z" 

260  PRINT  "zzz  z  z 

z  z  z  z" 

270  PRINT  "zzz  z  z 

z  z  zz" 

280  PRINT  "  zzzz  z  z  zzz 

z  z  z  z" 

290  PRINT  "zzz  z  z 

z  z  z  z  z" 

300  PRINT  "zzz  z  z 

z  zz  z  z" :  :  : 

310  FOR  L= 1  TO  8 
320  CALL  COLOR (L, 16,1) 


mede  mutationer!  og  DU  er  sidste 
mand  på  skanserne... 

Tilintetgør  de  fremmede  rumski¬ 
be.  efterhånden  som  de  prøver  at 
invadere  vor  truede  moder  Jord. 
Du  får  points  efter,  hvor  langt, 
rumskibene  når  ned.  Jo  længere 
de  når  ned.  desto  færre  points. 
Som  sædvanligt  starter  du  pro¬ 
grammet  med  RUN  og  saver  det 
med  SAVE  CSI. 

Morten  Jensen 


SRMES 


330  NEXT  L 

340  GOSUB  670 

350  CALL  COLOR (12,11,5) 

360  PRINT  "  VIL  DU  SE  REGLE 
RNE?( J/N)" 

370  CALL  SOUND(l ,800,10) 

380  CALL  KEY ( 0 , K , S ) 

390  IF  S=0  THEN  370 
400  IF.K<>74  THEN  530 
410  CALL  CLEAR 
420  CALL  COLOR (8,16,5) 

430  PRINT  TAB(9) ; "SPACE  ATTA 
CK" 

440  PRINT  : : : "DE  FREMMEDE  RU 
MV*SENER  FORSSGER  AT  IN 

VADERE  JORDEN!": :"DIN  OPGAVE 
ER  AT  FORHINDRE  DEM  I  AT  L 
ÅNDE  P%  JORDEN" 

450  PRINT  "DU  F%R  ET  EKSTRAL 
IV  VED  300P" 

460  PRINT  :  "KANONEN  AFFYRES 
MED  ""A"" . " : : "RYK  TIL  VENSTR 
E  MED  ""S"".": :"RYK  TIL  H$JR 
E  MED  " "D" " . " 

470  PRINT  : : "***«*g  O  O  D 
LUC  K*****" : : : 

480  PRINT  "TRYK  P%  EN  TAST  N 
%R  DU  ER  KLAR" 

490  CALL  SOUND( 1,800, 10) 

500  CALL  KEY ( 0 , K , S ) 

510  IF  S=0  THEN  490 
520  CALL  COLOR (8, 16,1) 

530  CALL  CLEAR 
540  CALL  SCREEN (2) 

550  CALL  CHAR(96, "55E7FF3C7E 
FFBDA5" ) 

560  CALL  CHAR(97, "9104500288 
200441") 

570  CALL  CHAR(98, "1940052088 
024014") 

580  CALL  CHAR( 104, "001818000 
0181800") 

590  CALL  COLOR( 10, 16 , 1 ) 

600  CALL  CHAR(112, "181818181 
8181818") 

610  CALL  COLOR(l 1,7,1) 

620  CALL  COLOR (12,8,1) 

630  CALL  CHAR(121 , "181818183 
C7EFFFF") 

640  CALL  CHAR (122, "000000000 
ØØØØØFF" ) 

650  CALL  CHAR (130, "194005208 
8024014") 

660  GOTO  720 

670  CALL  CHAR( 35 , "003E48487E 
48484E") 

680  CALL  CHAR ( 36 , "007C444C54 
54647C" ) 


690  CALL  CHAR( 37, "0038443844 
447C44 " ) 

700  RETURN 

710  CALL  CLEAR 

720  CALL  S0UND(90, 523,0) 

730  CALL  SOUND(180, 587,0) 

740  CALL  SOUND( 90, 698,0) 

750  CALL  SOUND(180, 784,0) 

760  CALL  SOUND(180, 698,0) 

770  CALL  SOUND(180, 587,0) 

780  CALL  SOUND(180, 523,0) 

790  CALL  SOUND( 372, 784,0) 

800  EX=300 

810  RANDOMIZE 

820  P=1 

830  Z=0 

840  N=-l 

850  H=l/2 

860  RM=24 

870  CM=32 

880  B=3 

890  POINTS=0 

900  MC=16 

910  CALL  CLEAR 

920  R=INT( 10*RND+1 ) 

930  IF  R= 1  THEN  920 
940  G= INT ( 1 6*RND ) 

950  IF  G<3  THEN  940 
960  CALL  COLOR ( 9 , G , 1  ) 

970  IF  B=0  THEN  2310 
980  FOR  Q= 1  TO  20 
990  J=INT( 22*RND+1 ) 

1000  IF  J=1  THEN  990 

1010  CALL  HCHAR( J , INT( 31 *RND 

+1) ,46) 

1020  NEXT  0 
1030  OT=2 

1040  M$="SCORE :  HIGH: 

tt 

1050  FOR  KX= 1  TO  LEN ( M$ ) 

1060  CALL  HCHAR ( 1 , OT , ASC ( SEG 
$(M$ ,KX , 1 ) ) ) 

1070  OT=OT+l 
1080  NEXT  KX 
1090  R=INT( 10*RND+1 ) 

1100  IF  R= 1  THEN  1090 
1110  G= INT ( 1 6* RND ) 

1120  IF  G<  3  THEN  1110 
1130  CALL  COLOR ( 9 , G , 1 ) 

1140  IF  B=0  THEN  2310 
1150  FY=8 

1160  A$=STR$ ( POINTS ) 

1170  B$*=STR$(SR(1  )  ) 

1180  FOR  UK= 1  TO  LEN ( A$ ) 

1190  CALL  HCHAR ( 1 , FY, ASC (SEG 

$ ( A$ , UK , 1 )  )  ) 

1200  FY=FY+1 
1210  NEXT  UK 


1220  HIK=21 

1230  FOR  ZT= 1  TO  LEN(B$) 

1240  CALL  HCHAR ( 1 , HIK , ASC ( SE 
G$ ( B$ , ZT , 1 ) ) ) 

1250  HIK=HIK+1 
1260  NEXT  ZT 

1270  CALL  HCHAR (1 ,28,121 ,B-1 

) 

1280  C  =  INT ( RND*  28 )  + 1 

1290  CALL  HCHAR(24,1 ,122,32) 

1300  CALL  HCHAR ( 24 , MC ,121) 

1310  IF  R= 1  THEN  1330 

1320  GOTO  1340 

1330  LET  R=2 

1340  CALL  HCHAR ( R , C , 96 ) 

1350  GOSUB  1500 
1360  GOSUB  1980 
1370  OR=R 
1380  OC=C 

1390  RC=SGN ( RND-H*H ) 

1400  TR=R+RC 
1410  IF  TR=RM  THEN  2220 
1420  IF  TR=Z  THEN  1390 
1430  CC=SGN( RND-H ) 

1440  TC=C+CC 

1450  IF  ( TC> CM ) + ( TC=Z ) THEN  1 
430 

1460  R=TR 
1470  C=TC 

1480  CALL  HCHAR ( OR, OC , 32) 

1490  GOTO  1310 

1500  CALL  KEY  ( 1  ,  K  ,?  ) 

1510  IF  <&>  *K  THEN  1540 
1520  CALL  HCHAR (24,1 ,32) 

1530  RETURN 
1540  IF  K>3  THEN  1520 
1550  ON  K  GOTO  1570,1640,171 
0 

1560  RETURN 

1570  CALL  HCHAR ( 24 , MC ,121) 
1580  CALL  SOUND ( 200 ,-7,9) 
1590  IF  MC=C  THEN  1780 
1600  CALL  VCHAR(2,MC, 112,22) 
1610  CALL  VCHAR ( 2 , MC , 32 , 22 ) 
1620  GOSUB  2000 
1630  RETURN 

1640  CALL  HCHAR(24,MC, 122) 
1650  IF  MC<  2  THEN  1670 
1660  GOTO  1680 
1670  LET  MC=2 
1680  MC=MC-P 

1690  CALL  HCHAR ( 24 , MC ,121) 
1700  RETURN 

1710  CALL  HCHAR ( 24 , MC ,122) 
1720  IF  M031  THEN  1740 
1730  GOTO  1750 
1740  LET  MC=31 
1750  MC=MC+P 


1760  CALL  HCHAR ( 24 , MC ,121) 
1770  RETURN 

1780  CALL  VCHAR(R+1 ,MC, 112,2 
3-R ) 

1790  CALL  VCHAR ( R+ 1 , MC ,32,23 
-R) 

1800  FOR  U=0  TO  30  STEP  2 
1810  CALL  SOUND( 50 , -5 , U ) 

1820  CALL  HCHAR ( R , MC , 97 ) 

1830  CALL  HCHAR ( R , MC , 98) 

1840  NEXT  U 

1850  CALL  HCHAR ( R , MC , 32 ) 

1860  POINTS-POINTS+24-R 

1870  IF  POINTS>  =  EX  THEN  1890 

1880  GOTO  1090 

1890  B=B+1 

1900  FOR  LY= 1  TO  5 

1910  CALL  SOUND(-100, 880,0) 

1920  CALL  SOUND ( - 1 00 ,880,8) 

1930  CALL  SOUND ( - 100 , 880 , 16) 

1940  CALL  SOUND ( -100 , 880 , 26 ) 

1950  NEXT  LY 

1960  EX=EX+300 

1970  GOTO  1090 

1960  IF  ABS ( C-MC  )<-  5  THEN  200 
0 

1990  RETURN 

2000  IF  RND> . 3  THEN  1990 
2010  CALL  SOUND ( 275,-3,24-R) 
2020  CALL  VCHAR ( R+l , C , 104 , 23 
-R) 

2030  CALL  VCHAR (R+l , C, 32,23- 
R) 

2040  IF  MC=C  THEN  2060 

2050  RETURN 

2060  CALL  SCREEN ( 5 ) 

2070  CALL  SCREEN ( 2 ) 

2080  CALL  CLEAR 

2090  CALL  SOUND( 1000,-5,0) 

2100  B=B-1 

2110  IF  B= 1  THEN  2170 
2120  PRINT  TAB(8) ; "KANON  $DE 
LAGT." :TAB(5);B; "KANONER  TIL 
BAGE 

2130  CALL  SOUND( 1000, 110,30) 
2140  CALL  SOUND( 2000, 1 10,30) 
2150  CALL  CLEAR 
2160  GOTO  900 

2170  PRINT  TAB(8) ; "KANON  $DE 
LAGT." :TAB( 6) ;B; "KANON  TILBA 
GE. : 

2180  CALL  SOUND( 1000, 110,30) 

2190  CALL  SOUND(2000, 110,30) 

2200  CALL  CLEAR 

2210  GOTO  900 

2220  CALL  CLEAR 

2230  PRINT  TAB(8) ; "KATASTROF 

E ! ! ! ! " : TAB ( 6 ) ; "RUMSKIBET  ER 


LANDET. " :::::::::::::::::: 
2240  FOR  K= 1  TO  7 
2250  CALL  SOUND ( 200 ,524,3) 
2260  CALL  SCREEN ( 9 ) 

2270  CALL  SOUND ( 200 , 440 , 3 ) 
2280  CALL  SCREEN ( 2 ) 

2290  NEXT  K 

2300  GOTO  2310 

2310  CALL  CLEAR 

2320  PRINT  "  GAME  OVER.",PO 

INTS; "POINTS” :::::::::: 

2330  CALL  SOUND( 2000 ,110, 30 ) 
2340  CALL  SOUND ( 2000 ,110,30) 
2350  IF  P0INTS4  =  SR ( 5 ) THEN  25 
20 

2360  MPO I NTS= POINTS 

2370  INPUT  "INDTAST  DIT  NAVN 

: " : NA$ 

2380  IF  LEN ( NA$ )<1 4  THEN  241 
0 

2390  PRINT  "FOR  LANGT!":: 
2400  GOTO  2370 
2410  SR ( 10 ) =MPOINTS 
2420  N$ (10) =NA$ 

2430  FOR  J=10  TO  2  STEP  -1 
2440  IF  SR( J  )<SR( J-l )THEN  25 
10 

2450  TP=SR ( J-l ) 

2460  T$  =  N$ ( J-l  ) 

2470  SR( J-l )=SR( J) 

2480  N$ ( J-l ) =N$ ( J  ) 

2490  SR ( J ) =TP 
2500  N$( J ) =T$ 

2510  NEXT  J 

2520  CALL  CLEAR 

2530  PRINT  "  zzzzzzzzzz 

zzzzz" 

2540  PRINT  "  z 

z" 


2550  PRINT 
RES  z" 

2560  PRINT 


z  HIGH  SCO 
z 


z" 

2570  PRINT  " 


zzzzzzzzzz 


zzzzz' 


2580  FOR  M= 1  TO  5 

2590  PRINT  "  " ; M ; "  ";SR(M);" 

" ;N$(M) : : 

2600  NEXT  M 

2610  PRINT  :::"  VIL  DU  SPIL 
LE  IGEN?( J/N)  " :  : 

2620  CALL  KEY ( 0 , K , S ) 

2630  IF  S=0  THEN  2620 
2640  IF  K074  THEN  2660 
2650  GOTO  720 

2660  PRINT  TAB( 8 ) ; "TAK  FOR  S 
PILLET" 

2670  END 


Commodore  64 


PromSåe 

tester 


Med  'Promilletester'  kan  du.  ud¬ 
over  hvad  navnet  angiver,  få  testet 
mange  ting.  Programmet  prøver 
din  reaktionsevne,  og  så  må  du  af¬ 
gøre.  om  du  er  i  stand  til  at  føre  bil. 
flyve,  bruge  motorsaven  eller 
hvad.  du  nu  giver  dig  af  med... 

Ole  Madsen 


5  PRINT  " < CLR > "  :  K  =  lø 
:  PRINT  " REfiKT I ONSTEST " 
lø  PRINT  ""  :  INPUT  "HIT  NAVN  :  " ; HT 

15  PRINT""  PR I NT " PROEV  HER  DIN  REAK 
TI ONSEVNE  :  PRINT  "" 

16  PRINT""  :  PR I NT "Nh AR  SKARENENS  PR 
RVE  SKIFTER 

1 ?  PR I NT " TRVK  PAR  < GUL  > MELLEMRUMST AN 
GENTEN (L.BLAA) " 

18  PRINT  ""  :  PRINT  " KLAR? < TRVK  J  EL. 
LER  N  > 

25  GET  Af  :  IF  Af=""  THEN  25 

26  IF  Af  =  "J"  THEN  23 

27  IF  Af  O  "N"  THEN  17 

28  END 

29  PRINT 

3ø  X  = I NT  C 1 999*RND  < 1 >  > 

35  FOR  RX  =  X  TO  1  STEP  -1 

36  GET  Af  :  IF  Af  O  ""  THEN  PRINT  " 
SNYD" 

37  NEXT  RX 
4ø  POKE  53280,0 
45  V  =  TI 

5ø  GET  Af  :  IF  Af  = 


[¥| 


Il  11 


THEN  5ø 


55  IF  m  O  "  "  rHEN  50 

F'Ø  Z  =  TI  P  -  (  ^ — V  > 6ø 

65  PRINT  "  REAKTIONSTID  =  "R"  SEK. " 

7ø  POKE  53280.- 14 
75  IF  R  >  K  THEN  30 
80  K  =  R  :  PRINT  "" 

82  F$  =  m 

85  IF  R  <  .1  THEN  15ø 

86  GO  TO  løø 

9ø  IF  R  >  5.0  THEN  165 

95  IF  R  >  3.ø  tmph  160 

97  IF  R  >  l.ø  THEN  155 

38  GOTO  llø 

løø  PRINT  F$  "  SLflflR  "  TRB(17)  "(LI 
LLA/RVS  ON  >  N  V  R  E  K  O  R  BCRVS  O 
FF,0RHfl3>" 

llø  PRINT  ""  : PR I NT "VIL  DU  PROEVE  I G 
EN  -  SAR  TRVK  EN  TASTE" 

112  PRINT  "VED  NV  SPILLER  -  TRVK  N" 
115  GET  H*  :  IF  A$  =  ""  THEN  115 
119  PRINT  " C CLR > " 

12ø  PRINT  TAB(lø)  Ft" S  REKORD 

: < GUL , R VS  ON > " K  " C R VS  OFF , L . BL AA  > " 
125  IF  A$  =  "N"  THEA  GOTO  lø 


ISO  GOTO  16 

15ø  PRINT  Ft  "  SLAAR:  "  rftpa?)  "CL. 
ROD -R VS  ON > S  U  F1  E  R  R  E  K  O  R  DC 
RVS  OFF# L. BLÅR)" 

152  GOTO  llø 

155  PRINT  "DET  ER  LIDT  SLØVT  "D t  "  P 
RøV  IGEN" 

157  GOTO  16 

16ø  PRINT  "  HVA"  HULEN  "  D t  "  -  SIDD 
ER  DU  OG  PILLER  NAESE" 

162  PPI NT  "DET  SKAL  GØRES  BEDRE  -  PR 
øV  IGEN" 

163  GOTO  16 

165  PRINT  "B  IJ  N  D  R  E  K  O  R  D  -  HEL 
T  UANTAGELIGT" 

166  PRINT  "JEG  SKYNDER  MIG  AT  GLEMME 
NAVNET  "D* 

167  PRINT  "  -  OG  MAA  VI  SAA  FAA  EN  N 
V  SPILLER" 

168  GOTO  lø 

2øø  INPUT  Df 

210  Ft  =  D t 

22ø  GOTO  2øø 


TYPHOON 


GØR  DIN  COMMODORE 
ORKAN-KOMPATIBEL 

Typhoon  er  engelsk  og  betyder  orkan. 

Det  er  også  navnet  på  Danmarks  kraftigste  Commodo- 
re-cartridge.  Et  nyt  multi-modul,  du  smækker  i  din  64'er 
eller  128'er,  hvis  du  vil  udvide  med  en  sand  hvirvelvind 
af  orkan-kraftige  kommandoer  - 

-  Old-funktion,  der  redder  selv  et  NEW'et  program! 

-  Resetknap,  der  altid  standser  et  løbsk  program! 

-  Listfrysning,  der  hindrer  rulning  af  skærmen! 

-  Omsætning  fra  maskinkode  til  datalinier  i  BASIC! 

-  Valgfri  udkobling  af  modulet,  når  det  ønskes! 

-  Menustyret  opstart  med  mange  valgmuligheder! 

-  Byteshjælp,  som  konstant  viser  hukommelsesforbru¬ 
get! 

-  Orkan-speed  på  tape  save  og  load,  10  GANGE  HA¬ 
STIGHEDEN! 

-  Største  tape  back-up  på  markedet  (hele  202  blokke). 

Hvis  du  ikke  synes,  det  er  nok  til  at  røre  en  storm  op,  så 
se,  hvad  Typhoon  gør  ved  din  diskettestation  (1541, 1570 
el.  1571): 


-  Hurtigloading  fra  diskette,  hele  7  gange  så  hurtigt  (ren 
orkan-tempo)! 

-  Formattering  af  ny  diskette  på  bare  23  sekunder! 

-  Disk-utilities  med  masser  af  disk-kommandoer! 

-  Diskette  monitor  med  separat  spor/sector  adgang! 

-  Gennemsøgning  af  en  diskette  for  fejl! 

Typhoon  er  navnet  på  vores  nye  modul. 

Vi  valgte  det,  fordi  du  får  din  helt  egen  lille  orkan  for  345- 


Kupon - 

JA-TAK,  smid  orkanen  i  min  Commodore! 

□  345.-  kr.  vedi.  i  check  □  indsats  på  giro- 
nr.  9  50  63  73 

Navn: _ 


Adresse: 
Post: _ 


By: 


sendes  til: 


COMputer 

St.  Kongensgade  72, 

1264  Kbh.  K. 


GAMES 


GAMES 


120  S$="«RVS  0N,SPACE2 ,RVS  OFF , 

SPACE36 ,RVS  0N,SPACE2 ,RVS  OFF)" 

125  POKE  43194,7 

130  DEF  FNRXC X)  =  INT( RND«  1  )*87)+X 
:  DEF  FNRY<  Y)  =  INT(  RNO«  1  )*57)+Y 
: POKE  53280,0 

140  POKE  53281 ,0 : PL= 1524 : PX=20 : PY= 12 
s  OPL= 1524  s  POKE  PL,81 
s POKE  PL +54272 ,4 ! EN=532B9 

150  POKE  EN, 255 : POKE  49192, OsLV=l 

: SC=0 : CS =53278 : CD=53279 : GOSUB  330 
s  GOTO  115 

180  PRINT"«  CLR)  :  PRINT 

■■PRINT  T*;s$;s*;  :  GOSUB  180 
:  PR  I  NT  S*,’ S*;  :  GOSUB  180 
SPRINT  s*;s*;T* 

170  PRINT"« HOME) " : RETURN 

180  PRINT"« RVS  0N,SPACE2,RVS  OFF, 

SPACE2)  , - ,  , - 

- ,  < RVS  0N,SPACE2,RVS  OFF)"; 

190  PRINT"« RVS  0N,SPACE2 ,RVS  OFF, 
SPACE2)  |  I  | 

I  (RVS  0N,SPACE2,RVS  OFF)"; 

200  PRINT"« RVS  0N,SPACE2 ,RVS  OFF, 
SPACE2)  |  I  | 

I  (RVS  0N,SPACE2,RVS  OFF)"; 

210  PRINT"« RVS  0N,SPACE2,RVS  OFF, 
SPACE2 )  I  I  I 

I  (RVS  0N,SPACE2,RVS  OFF)"; 

220  PRINT"« RVS  0N,SPACE2 ,RVS  OFF, 
SPACE2)  |  I  | 

I  (RVS  0N,SPACE2,RVS  OFF)"; 

230  PR  I NT "(RVS  ON,SPACE2 ,RVS  OFF, 
SPACE2)  I  I  I 

I  (RVS  0N,SPACE2,RVS  OFF)"; 

240  PRINT"« RVS  0N,SPACE2 ,RVS  OFF, 

SPACE2  )  1 - '  i - 

- 1  (RVS  0N,SPACE2,RVS  OFF)"; 

250  RETURN 

260  PRINT"« CLR)"; SPRINTSPRINT  T*; 

270  FOR  1  =  1  TO  20  s  PR  I NT  S*;  : NEXT 
SPRINT  T$: PRINT"« HOME) " 

SPRINT"« CRSR  NE09)"; 

280  D*="  | 

■  "sprint  d*;d*;d*;d* 

s  RETURN 

290  PRINT"« HOME , CRSR  NE023,GUL, 

SPACE2  )SCORE  "SC  "  LEVEL "LV" 

LIV"P'<  L.BLAA)  "  s 

29  1  PRINT"« HOME) " s  RETURN 

330  IF  TC< >4  THEN  340 

335  TC=0  s  FOR  1  =  1  TO  4  s RM<  I ) =0  s NEXT 
: LV=LV+ 1  s  GOSUB  880 

336  IF  LV/4  = I NT«  LV/4 ) THEN  P=P  +  1 

s  V=7- I NT«  LV/4 ) s  IF  V>=0  THEN  POKE 
49194, V 

340  POKE  49192, 0  s POKE  53269,0 
s GOSUB  160  s GOSUB  290 
s IF  P=0  THEN  610 


38 


34  1 

IF 

RM«  1  )  =  1 

THEN 

POKE 

1315, 160 

342 

IF 

RM«  2  )  =  1 

THEN 

POKE 

1332, 160 

343 

IF 

RM«  3  )  =  1 

THEN 

POKE 

1675, 160 

344 

IF 

RM«  4  )  =  1 

THEN 

POKE 

1692, 160 

350  POKE  PL  ,8 1  s  POKE  PL+54272,4 
360  M=PEEK(  56320) SM=C M  AND  15) 

370  IF  M= 15  THEN  360 

380  DX=(  (  M>8)AND(  M<  12)  )-<  M<8) 

390  DY=(  (  M=6  )0R(  M=10)0R(  M=  14)  )-<  <  M=5 
)0R(M=9)0R(  M=  1 3  )  > 

400  PX=PX+DX  s  PY=PY+DY 
410  PL=<  PY*40 ) +  1024+PX 

SIF  PEEK«  PLX  >32  THEN  430 
420  POKE  OPL ,32  s  POKE  0PL+54272,0 

s POKE  PL ,8ls  POKE  PL+54272 ,4  s OPL=PL 
s  GOTO  360 

430  IF  PEEK«  PLX  >9  THEN  GOTO  590 

440  IF  PY=7  THEN  RM= 1 

450  IF  PY  =16  THEN  RM=3 

460  IF  PX  >19  THEN  RM=RM+ 1 

470  IF  RM= 1  THEN  CL=6 

480  IF  RM=2  THEN  CL=7 

490  IF  RM=3  THEN  CL=5 

500  IF  RM=4  THEN  CL=2 

510  POKE  53292, CL 

520  IF  RM(  RM )  =  1  THEN  PX= PX-DX 

s  PY=PY-DYs  PL=< PY*40 )  +  1024+PX 
s  OPL=PL  s  GOTO  420 

530  FOR  1  =  1  TO  4  s POKE  2040+ 1  ,230+RM 
s POKE  53287+1 ,CL+1 s NEXT 
SPOKE  2045 ,235+RMsGOSUB  650 
540  X=PEEK( 53248) s Y=PEEK(  53249) 

550  IF  X<  =46  THEN  PX  =  -3 *(  (  RM= 1 )OR(  RM 
=  3  )  )  -20 *(  (  RM=2  )0R(  RM  =  4  )  ) 

560  IF  X  >46  THEN  PX  =  - 19*(  <  RM=  1  )0R(  RM 
=  3  )  )  -36*<  <  RM=2  )0R(  RM=4  )  ) 

570  PY=-7*<  (  RM=  1  )0R(  RM=2  )  )-16*(  (  RM=3 
)0R(  RM=4 ) ) s  PL  =< PY*40)  +  1024+PX 
s  OPL=PL 
580  GOTO  330 
590  PX=PX -DX  s  PY=P Y-DY 
600  GOTO  360 

610  PR  I NT "(  HOME, CRSR  NED7 , 

CRSR  HOJRE 16 ,RVS  ON, 

GUDSPIL  SLUT«  RVS  OFF)" 

611  PRINT"« CRSR  NED, CRSR  H0JRE7, 

RVS  ON , SPACE2 ) TRYK  EN  TAST  FOR  ET 
NYT  (  L . BLAA ,RVS  OFF)  "SPOKE  198,0 

612  LIA  I T  198,1 

613  PRINT"« CLR) " SRETURN 

650  POKE  OPL ,32  s  POKE  0PL+54272,0 
SPOKE  PL, 81 SPOKE  PL+54272,4 
s GOSUB  260  s GOSUB  290 
660  IF  PX= 1 8  OR  PX=35  THEN  680 
670  X=45s Y=145SP0KE  53264, 

PEEK« 53264) AND  254  s POKE  49189,0 
s  GOTO  690 

680  X=45s Y= 145SP0KE  53264, 

PEEK« 53264 )0R  1  SPOKE  49189,1 


690  POKE  53248, X : POKE  53249, Y 
: POKE  53264, PEEK< 53264 >ANO  1 
: POKE  53269,0 

700  PL=53250  :  POKE  PL,FNRX<58> 

:  POKE  PL+1  ,FNRY(  67) 

: POKE  PL  +2 ,FNRX<  169) 

710  POKE  PL  +  3,FNRY< 67) 

:  POKE  PL+4,FNRX<  58) 

:  POKE  PL  +5  ,FNRY<  146) 

720  POKE  PL+6 ,FNRX< 167) 

: POKE  PL  +7 ,FNRY<  146) 

730  POKE  PL  +8,1 NT(  RNDC  1  )  *222 ) +33 
:  POKE  PL+9, INT< RND<  1  )*139>+66 
: POKE  EN, 255 

740  GOSUB  900: POKE  49178,0 
750  SYS  49152: A=PEEK< 49178) 

760  IF  9=1  THEN  POKE  49178,0 
: POKE  49 190, O: RETURN 
770  IF  A<  >2  THEN  800 

780  POKE  49178, O : POKE  49 1 90 , O : P =P - 1 
:  IF  RM(  RM)  =  1  THEN  RMC  RM)  =0 
:  SC-=SC-300  :  TC  =  TC-  1 
785  FOR  1=20  TO  O  STEP- 1: POKE  LH , I 
: POKE  CR  ,17: FOR  W= 1  TO  20:NEXT 
: POKE  CR ,16: NEXT 

790  POKE  CR  ,0 : POKE  5326 1 ,0 : RETURN 
300  IF  A<  >3  THEN  810 

801  SC=SC+300: GOSUB  290:TC=TC+1 
: POKE  49178, O :  RM< RM)=1 

: POKE  53261,0 

802  FOR  1=0  TO  100  STEP  10: POKE  LH , I 
: POKE  CR  ,17: FOR  W= 1  TO  20: NEXT 

: POKE  CR, 16: NEXT 

803  POKE  CR ,0 : GOTO  750 

810  POKE  49178, O: POKE  49190,0 
: SC=SC+ 10 : GOSUB  290:G0T0  750 
820  POKE  2040, 230: POKE  2041,231 
: POKE  2042,232: POKE  2043,233 
: POKE  2044,234 

830  POKE  2045, 236: POKE  2046,235 
840  CH=0 : FOR  1=14720  TO  15359:READ  9 
: POKE  1,9: CH=CH+A : NEXT 
845  IF  CH< >45651  THEN  PRINT'FEJL  I  D 
9T9  FOR  SPR I TEDEF INI  TIONER: END 
850  RETURN 

880  POKE  EN,0 : PR  I NT "(  CLR ,CRSR  H0JRE5, 
CRSR  NED5 )DU  AVANCERER  TIL  LEVEL 
"  J  LV "  !  " 

890  FOR  W=1  TO  3000 : NEXT : RETURN 
900  9=PEEK(  49  189) : ON  9  +  1  GOTO  9  10,920 
910  9=1 424 : GOTO  930 
920  9=1462 

930  FOR  1=9  TO  9+120  STEP  40 

: POKE  I, 160 : POKE  I +1,160: NEXT  I 
: RETURN 

960  D9T9  0,60,0,0,126,0,0,219 
970  09T9  0,0,255,0,0,255,0,0 
980  D9T9  126,0,0,60,0,1,255,128 
990  D9T9  3,255,192,3,126,192,3,126 


1000  D9T9  192,3,126,192,3,126,192,3 
1010  D9T9  126,192,0,102,0,0,102,0 
1020  D9T9  0,102,0,0,102,0,0,102 
1030  D9T9  0,0,102,0,0,231,0,0 
1050  D9T9  O, O, O, O, O, O, O, O 
1060  D9T9  112,0,0,216,0,1,240,0 
1070  D9T9  1,192,0,1,192,0,0,224 
1080  D9T9  0,0,56,0,0,28,0,0 
1090  T9T9  14,0,240,14,131,252,14,199 
1100  D9T9  255,14,207,15,158,254,7,252 
1110  D9T9  124,3,248,56,0,224,0,0 
1120  D9T9  O, O, O, O, O, O, O, O 
1140  D9T9  0,0,0,12,0,48,30,0 
1150  09T9  120,18,24,72,51,60,204,97 
1160  D9T9  60,134,13,153,176,30,255, 
120 

1170  D9T9  51,127,204,45,255,180,110, 
255 

1180  D9T9  118,219,255,219,53,255,172, 
1  10 

1190  D9T9  255,118,219,255,219,48,60, 
12 

1200  D9T9  32,24,4,96,0,6,64,0 
1210  D9T9  2,64,0,2,0,0,0,0 
1230  D9T9  0,24,0,0,60,0,0,126 
1240  D8T9  0,0,195,0,0,195,0,0 
1250  DATA  102,0,0,60,0,0,255,0 
1260  DATA  1,255,128,3,189,192,3,189 
1270  DATA  192,7,126,224,7,126,224,9 
1280  DATA  126,144,16,255,8,9,126,144 
1290  DATA  6,255,96,0,255,0,1,255 
1300  DATA  128,3,255,192,0,0,0,0 
1320  DATA  2,0,64,14,66,112,63,90 
1330  DATA  252,127,255,254,255,129, 
255,255 

1340  DATA  165,255,221,129,187,136, 
195,17 

1350  DATA  0,195,0,0,102,0,0,126 

1360  DATA  0,0,60,0,0,60,0,0 

1370  DATA  60,0,0,60,0,16,56,0 

1380  DATA  48,248,0,255,224,0,127,128 

1390  DATA  0,48,0,0,16,0,0,16 

1410  DATA  O, O, O, O, O, O, O, O 

1420  DATA  O, O, O, O, O, O, O, O 

1430  DATA  0,0,0,126,0,1,153,128 

1440  DATA  2,60,64,6,255,96,6,255 

1450  DATA  96,2,60,64,1,153,128,0 

1460  DATA  126,0,0,0,0,0,0,0 

1470  DATA  O, O, O, O, O, O, O, O 

1430  DATA  0,0,0,0,0,0^3,255 

1490  DATA  O, O, O, O, O, O, O, O 

1500  DATA  O, O, O, O, O, O, O, O 

1510  DATA  O, O, O, O, O, O, O, O 

1520  DATA  0,0,0,63,255,252,96,0 

1530  DATA  6,192,0,3,255,255,255,192 

1540  DATA  20,3,192,28,3,192,0,3 

1550  DATA  192,0,3,255,255,255,0,0 

1560  DATA  0,0,0,0,0,0,0,255 

1570  DATA  O, O, O, O, O, O, O, O 


GAMES 


1580 

DATA 

0,0, 0,0, 0,0, 0,0 

2100 

DftTA 

192,240,12, 185,3,192 

1590 

DATA 

0,0,0,0,0,97,255,134 

21  10 

DATA 

13, 16,208,141 , 16,208 

1600 

DATA 

146,0,73,147,129,201,137, 

2120 

DATA 

76,163,192,185,11,192 

255 

2130 

DATA 

45, 16,208, 14  1 , 16,208 

1610 

DATA 

145,135,255,225,128,255,1 , 

2140 

DATA 

172,19,192,173,21,192 

65 

2150 

DATA 

153,0,208, 173,23,192 

1620 

DATA 

255, 130,34,126,68,28,60,56 

2160 

DATA 

201,66,144,9,201 ,205 

1630 

DATA 

0,255,0,3,255, 192,31 ,255 

2170 

DATA 

240,2, 176,3, 153, 1 

1640 

DATA 

248,0,0,0,0,0,0,255 

2180 

DATA 

208, 169,0,141,24,192 

1650 

DATA 

1  ,255, 128,3,255, 192,7,129 

2190 

DATA 

141  ,25, 192,96, 173,0 

1660 

DATA 

224, 12,195,48,24,102,24,56 

2200 

DATA 

220,41 , 15,201 , 15,208 

1670 

DATA 

60,28,60,126,60,54,195,108 

2210 

DATA 

3,76, 111, 193,32,207 

1680 

DATA 

51 , 153,204,49, 189,140,49, 

2220 

DATA 

193,32,44, 192, 173, 1 

183 

2230 

DATA 

208,201 ,66,208,9,24 

1690 

DATA 

140,51 , 153,204,54,195,108, 

2240 

DATA 

105,1,141,1 ,208,76 

60 

2250 

DATA 

246, 192,201 ,205,208,6 

1700 

DATA 

126,60,56,60,28,24,102,24 

2260 

DATA 

56,233, 1,141,1 ,208 

1710 

DATA 

12,195,48,7,129,224,3,255 

2270 

DATA 

173,16,208,41 , 1 ,208 

1720 

DATA 

192,1  ,255,128,0,0,0,0 

2280 

DATA 

42, 173,0,208,201 ,39 

1730 

DATA 

0,0, 0,0, 0,0, 0,0 

2290 

DATA 

208,74,173, 1 ,208,201 

1740 

DATA 

0,0, 0,0,0, 126,0,0 

2300 

DATA 

130,144,22,201,161,176 

1750 

DATA 

195,0,0,195,0,0,126,0 

2310 

DATA 

18, 173, 16,208,41 , 1 

1760 

DATA 

0,60,0,0,60,0,0,60 

2320 

DATA 

205,37, 192,240,8, 169 

1770 

DATA 

0,0, 126,0,0,255,0,0 

2330 

DATA 

1,141  ,26, 192,76, 1 1 1 

1780 

DATA 

255,0, 1 ,255, 128,1 ,255, 128 

2340 

DATA 

193,238,0,208,76,78 

1790 

DATA 

3,255,192,3,255, 192,3,255 

2350 

DATA 

193, 173,0,208,201 ,49 

1800 

DATA 

192,1 ,255, 128,0,255,0,0 

2360 

DATA 

208,32, 173,1 ,203,201 

1810 

CH=0 

1=49152:  IF  PEEK<I>=76  THEN 

2370 

DATA 

130,144,22,201,161,176 

RETURN 

2380 

DATA 

18, 173, 16,208,41 , 1 

1820 

READ 

A : CH=CH+A : IF  A=256  THEN  18 

2390 

DATA 

205,37,192,240,8, 169 

40 

2400 

DATA 

1,141 ,26, 192,76,1 1 1 

1830 

POKE 

I  , A : 1  =  1  +  1: GOTO  1820 

24  10 

DATA 

193,206,0,208,162,5 

1840 

IF  CH< >141279  THEN  PR INT"FORKER 

2420 

DATA 

32,54,195,173,32,192 

TE  DATA  I  ML  -  KLOVN": END 

2430 

DATA 

240,23, 169,3,141,26 

1850 

RETURN 

2440 

DATA 

192, 160,5, 185, 1 1 , 192 

1860 

DATA 

76,24, 194,1 ,2,4 

2450 

DATA 

45,21 ,208,141 ,21 ,208 

1870 

DATA 

8,16,32,64,128,254 

2460 

DATA 

160, 10, 169,0, 153,0 

1880 

DATA 

253,251 ,247,239,223,191 

2470 

DATA 

208, 173,38, 192,208,90 

1390 

DATA 

127,0,0,0,0,0 

2480 

DATA 

173,43, 192,208,85, 173 

1900 

DATA 

0,0, 0,0, 0,0 

2490 

DATA 

0,220,41 , 16,208,78 

19  10 

DATA 

0,0, 0,0, 0,0 

2500 

DATA 

173,40,192,201 ,3,176 

1920 

DATA 

0,0, 0,0, 0,0 

2510 

DATA 

71,169,50,141,43,192 

1930 

DATA 

0,0,173,20, 192,10 

2520 

DATA 

169,1,141,38,192,238 

1940 

DATA 

168, 141,19, 192, 185,0 

2530 

DATA 

40,192,169,10,141,1 

1950 

DATA 

208, 141,21,192,172,20 

2540 

DATA 

212,169,17,141 ,4,212 

1960 

DATA 

192, 185,3, 192,45, 16 

2550 

DATA 

162,2,32, 15, 194,169 

1970 

DATA 

208 ,141,22,192,172,19 

2560 

DATA 

16,141 ,4 ,212, 160, 12 

1980 

DATA 

192,135,1 ,208, 141,23 

2570 

DATA 

173,0,208,153,0,208 

1990 

DATA 

192,173,21,192,24,109 

2530 

DATA 

173, 1 ,208, 153, 1 ,208 

2000 

DATA 

24,192,141,21,192,201 

2590 

DATA 

173, 16,208,41 , 1 ,240 

2010 

DATA 

255,240,19,201 ,0,240 

2600 

DATA 

9, 173, 16,208,9,64 

2020 

DATA 

3,76, 129,192, 172,20 

2610 

DATA 

14  1 , 16,208,96, 173,16 

2030 

DATA 

192,185,3,192,141,22 

2620 

DATA 

208,41 ,191,141, 16,208 

2040 

DATA 

192,76,129,192,173,24 

2630 

DATA 

96, 168,41 , 1 ,208,8 

2050 

DATA 

192,16, 12,173,21, 192 

2640 

DATA 

169,255,141 ,25,192,76 

2060 

DATA 

201  ,255,208,5, 169,0 

2650 

DATA 

230,193,152,41,2,208 

2070 

DATA 

141,22,132,173,23,192 

2660 

DATA 

5,169,1,141,25,192 

2080 

DATA 

24,109,25,192,141,23 

2670 

DATA 

152,41 ,4,208,8, 169 

2090 

DATA 

192,172,20,192,173,22 

2680 

DATA 

255,141 ,24,192,76,253 

2690  DATA  193,152,41,8,208,5 
2700  DATA  169,1,141,24,192,173 
2710  DATA  38,192,208,12,173,24 
2720  DATA  192,141,39,192,173,25 
2730  DATA  192,141,41,192,96,160 
2740  DATA  255,136,208,253,202,208 
2750  DATA  248,96,169,0,141,20 
2760  DATA  192,32,202,192,44,43 
2770  DATA  192,240,3,206,43,192 
2780  DATA  173,26,192,208,88,173 
2790  DATA  38,192,240,21,32,13 
2800  DATA  196,173,38,192,240,13 
2810  DATA  173,26,192,208,70,32 
2820  DATA  13,196,173,26,192,208 
2830  DATA  62,174,42,192,32,15 
2840  DATA  194,162,0,173,27,192 
2850  DATA  24,105,1,201,5,208 
2860  DATA  2,169,1,141,27,192 
2870  DATA  141,20,192,168,185,3 
2880  DATA  192,45,16,208,208,16 
2890  DATA  152,10,168,185,0,208 
2900  DATA  208,8,232,224,4,240 
2910  DATA  161,76,79,194,32,139 
2920  DATA  194,173,26,192,208,3 
2930  DATA  76,24,134,169,0,141 
2940  DATA  38,192,96,173,27,192 
2950  DATA  10,168,185,0,208,141 
2960  DATA  21,192,185,1,208,141 
2970  DATA  23,192,173,23,192,205 
2980  DATA  1,203,208,8,169,0 
2990  DATA  141,23,192,76,187,194 
3000  DATA  144,8,169,255,141,25 
3010  DATA  192,76,187,194,169,1 
3020  DATA  141,25,192,172,27,192 
3030  DATA  185,3,192,45,16,208 
3040  DATA  208,3,169,0,141,22 
3050  DATA  192,76,211,194,169,1 
3060  DATA  141,22,192,173,16,208 
3070  DATA  41,1,205,22,192,240 
3080  DATA  5,176,18,76,236,194 
3090  DATA  173,21,192,205,0,208 
3100  DATA  240,12,144,5,169,255 
3110  DATA  76,248,194,169,1,76 
3120  DATA  248,194,169,0,141,24 
3130  DATA  192,173,24,192,73,255 
3140  DATA  24,105,1,141,34,192 
3150  DATA  173,25,192,73,255,24 
3160  DATA  105,1,141,35,192,32 
3170  DATA  44,192,32,33,195,173 
3180  DATA  32,192,208,1,96,32 
3190  DATA  229,195,96,162,0,236 
3200  DATA  20,192,240,8,32,54 
3210  DATA  195,173,32,192,208,5 
3220  DATA  232,224,6,208,238,96 
3230  DATA  173,20,192,10,168,185 
3240  DATA  0,208,141,28,192,185 
3250  DATA  1,208,141,29,192,138 
3260  DATA  10,168,185,0,208,141 
3270  DATA  30,192,135,1,208,141 


3280  DATA  31,192,173,29,192,56 
3290  DATA  233,19,205,31,192,176 
3300  DATA  11,173,29,192,24,105 
3310  DATA  19,205,31,192,176,6 
3320  DATA  169,0,141,32,192,96 
3330  DATA  172,20,192,185,3,192 
3340  DATA  45,16,208,240,2,169 
3350  DATA  1,141,33,192,138,168 
3360  DATA  185,3,192,45,16,208 
3370  DATA  240,2,169,1,205,33 
3380  DATA  192,240,46,176,25,173 
3390  DATA  28,192,56,233,15,176 
3400  DATA  11,205,30,192,176,6 
3410  DATA  169,1,141,32,192,96 
3420  DATA  169,0,141,32,192,96 
3430  DATA  173,28,192,24,105,15 
3440  DATA  144,242,205,30,192,144 
3450  DATA  237,169,1,141,32,192 
3460  DATA  96,173,28,192,56,233 
3470  DATA  15,176,2,169,0,205 
3480  DATA  30,192,176,216,173,28 
3490  DATA  192,24,105,15,144,2 
3500  DATA  169,255,205,30,192,144 
3510  DATA  201,169,1,141,32,192 
3520  DATA  96,138,240,31,173,34 
3530  DATA  192,141,24,192,173,35 
3540  DATA  192,141,25,192,32,44 
3550  DATA  192,173,34,192,141,24 
3560  DATA  192,173,35,192,141,25 
3570  DATA  192,32,44,192,96,169 
3580  DATA  2,141,26,192,96,160 
3590  DATA  12,185,1,208,201,66 
3600  DATA  240,106,201,205,240,102 
3610  DATA  173,16,208,41,1,208 
3620  DATA  7,185,0,208,201,39 
3630  DATA  240,88,185,0,208,201 
3640  DATA  49,240,81,173,39,192 
3650  DATA  141,24,192,173,41,192 
3660  DATA  141,25,192,169,6,141 
3670  DATA  20,192,32,44,192,160 
3680  DATA  12,185,1,208,201,66 
3690  DATA  240,52,201,205,240,48 
3700  DATA  173,16,208,41,64,208 
3710  DATA  10,185,0,208,201,39 
3720  DATA  240,34,76,104,196,185 
3730  DATA  0,208,201,49,240,24 
3740  DATA  162,1,32,54,195,173 
3750  DATA  32,192,203,22,232,224 
3760  DATA  5,208,243,76,122,196 
3770  DATA  169,0,141,26,192,96 
3780  DATA  169,0,141,26,192,76 
3790  DATA  171,196,138,24,105,3 
3800  DATA  141,26,192,138,168,185 
3810  DATA  11,192,45,21,208,141 
3820  DATA  21,208,185,11,192,45 
3830  DATA  16,208,141,16,208,152 
3840  DATA  10,168,169,0,153,0 
3850  DATA  208,169,0,141,38,192 
3860  DATA  160,12,153,1,208,96,256 


DONT  MISS  ”SOFT” 


Dit  blad, 

når  du  fyrer  den  af  ... 

Når  du  for  alvor  vil  gå  til  den,  er  der  kun  ET  blad,  der  snakker  dit 
sprog  -  SOFT,  Danmarks  eneste  softwaremagasin. 

SOFT  har  gang  på  gang  slået  Danmarksrekord  i  antal  spilanmeldelser. 
Og  udover  alle  de  hotte  anmeldelser  er  der  dybdetests,  snydetips,  pokes 
og  meget  mere,  der  hjælper  dig  med  at  gennemføre  alle  de  bedste 
games.  Altsammen  er  det  med  baggrundsinterviews,  joysticktests  og 
spændende  artikler.  For  slet  ikke  at  tale  om  alle  de  friskeste  news  og 
preview-anmeldelser  af  kommende  spil. 

Flår  du  fingeren  på  joystickknappen?  Og  vil  du  ha’  check  på  alt  det 

varmeste  fra  games-land? 

Så  er  SOFT  dit  blad.  Danmarks  eneste  softwaremagasin,  men  i 

international  klasse! 


-  VI  TRYKKER  DEN  AF! 


CHRLLENGE 


Amstrad 


Er  du  kreativt  anlagt  og  elsker  at 
tegne,  så  prøv  kræfter  med  Am- 
strads  svar  på  Picasso.  Du  bliver 
måske  ikke  den  nye  Rembrandt. 
men  du  vil  få  det  sjovt. 
Tegneprogrammet  er  skrevet  i  ren 
maskinkode  og  fylder  omtrent  4 
K.  Det  kan  tegne  i  alle  tre  mode's  - 
med  2. 4  eller  1 6  farver  på  skær¬ 
men.  Du  kan  selv  definere  dine  far¬ 
ver.  så  du  reelt  har  rådighed  mel¬ 
lem  samtlige  27  og  en  ekstra  fea¬ 
ture  er  muligheden  for  at  skifte 
mode  uden  at  skærmen  slettes. 
Programmet  kan  sagtens  køre  og¬ 
så  på  en  Amstrad  med  disc.  Når  det 
er  indtastet  (OG  gemt.  husk  det), 
startes  det  med  CALL  30000  og  et 
tryk  på  Enter. 


1  ’ TEGNER.  Lars  Bækgaard  Jensen  W  O 

3  pc=£9Q0£ : MEMORY  pc-1 

4  READ  a$ : XF  a*=" END "THEN  END 

5  FOR  a~l  TO  LEN (a$)  STEP  2:P0KE  pc, VAL ( “ & "+MID* ( a*, a, £> ) : pc=pc+l : NEXT : GOTO  4 

1  O  DATA  1  F0E07££54£045£047£04E£045£05£2£  1 F 1 30B6 1 66 1 F070E4C6 1 7£73£04£6 1 656B676 1 
£0  DATA  61 7£64£04A656E73656E£C£03 1 393835 1 FOS 1841 6B7475656C£070656E3A£0£0£03A£0 
30  DATA  £0£0£0£0£0£0466 1 7£76657£0D0A  1 F020C53746 1 727420626 1 6 1 6E646F70746 1 676572 
40  DATA  206F6720736B726976206669606E61766E3A2020200DOA536B72697620687665727420 
50  DATA  74616C£06D6564£0746F206369667£65£0£0£0£0£OODOA004876696C6B656E£04D4F44 
60  DATA  452076696020647520686 17665£830£D3£293FCDBABB3E8£CDAD77CD0aa4£ 1065206 10 
70  DATA  360023 1 0FB2 1 1 27506 1 E7ECD5ABB23 1 0F9CD03BBCD 1 8BBFE302808FE3 1 2804FE3220F 1 
80  DATA  D63032 1 652060 1 473E08CB3F 1 0FC32 1 452CDFC83CDE 1 BBF53E0 1 CDDEBBCD 1 378CD8678 
90  DATA  F 1 CDDEBBCDD278F5CDE 1 BBF53E0 1 CDDEBBCD8678CD 1378F 1 CDDEBBF 1FE7 1 200BCD03BB 
1 00  DATA  CD 1 8BBFE7 1 CA3075FEE0206ECDE 1 BBF52 1 F84322784B0 1 2F002A 1 £520906 1 805ED5B 1 O 
110  DATA  52065005E5D5CDF0BB2A784B772322784BD1E1C1 131OECC12B2B10E0CDBA7QCD6CBB0D 
1 20  DATA  84BB2 1 D45D0 1 7F07 1 1 F843 1 ACD2CBC77 1 3230BCB7828F4CDC383F 1 CDDEBB2 1 284B2278 
130  DATA  4B2 1 1 801CD75BB00000000CD8 1 BBC3F276CD2976C37775FESSCAED78FE82CA1 579FE84 
1 40  DATA  C A3379FE86CA5579FE8 1 2006CD 1 579C33379FE832006CD 1 579C35579FE872006CDED78 
1 50  DATA  C33379FE892006CDED78C35579FEF0CA8 1 79FEF 1 CA9379FEF2CA9F79FEF3CAAF79FE3 1 
1 60  DATA  CAC279FE32CACD79FE33CAE279FE34CAF07AFE35CA827CFE36CA8B7CFE37CAD07CFE38 
1 70  DATA  CA267AFE73CA4F7DFE60CA6D7DFE66CAA47DFE76CAAB7FFE68CA507FFE6ECAB782FE6F 
ISO  DATA  CA2C83FE70CAF27CFE74CAE07CFE61CAD581FE6BCAF381FE63CA0C82FE650A7782FE67 
1 90  DATA  C ACC8 1 FE64CAC38 1 FEODCA 1 57AC92A784B7E57EE0 1 CD90BB7ACD96BBCD 1 D7ACDD278FE 
£00  DATA  7 1 200BCD03BBCD 1 8BBFE7 1 C A3075FEE02042CDE 1 BBF5CDC6782 1 F84 322784B0 1 2F002A 
210  DATA  1 £520906 1 8C5ED5B 1 052065005D5E52A784B7E2322784B0DDEBBE 1 E5CDEABBE 1 D 1 C 1 1 3 
£20  DATA  1 0E7C 1 2B2B 1 ODBF 1 CDDEBBC37775CD6 1 77C3F276FE8BCA887EFE82CA9C7EFE84CAB57E 
£30  DATA  FE86CACB7EFE8 1 £006CD9C7EC3B57EFE83£006CD9C7EC3CB7EFE87£006CDaa7EC3B57E 
£40  DATA  FE892006CD887EC3CB7EFE3 1 CADE7EFE38CAF97EFE70CA207FC9D66 1 573A 1 452473E0 1 


CHRLLENGE 


£50  DATA  CB27 10FCD601 A2F5CDDEBBF1CD35BCCD38BCC9CD4EBBCD1 1BC3216523E01 CD0EBC3E00 
£60  DATA  CD35BCED43 1 75£3E000 10101 CD3£BC3E0 1 CD35BCED43 1 9523E0 101181 8CD32BCC9C5CD 
£70  DATA  E87C3E0 1ED4B1 95£CD3£BC3E00ED4B 1 75£CD3£BCC 1 C9003A065£A7£0343E0 1 CD59BC£A 
£80  DATA  085£ 1 1 0800 1 9EB£A0A5£CDC0BB 1 1 F0FF£ 1 0000CDF9BB 1 1 08002 1 0800CDC3BB 1 1 00002 1 
£90  DATA  F0FFCDP'9BB3E00CD59BCC93E0 1 CD59BCED5B 1 0522 A 1 252CDC0BB 1 1 4F002 1 0000CDF9BB 
300  DATA  1 10000212F00CDF9BB1 1B1FF210000CDF9BB1 1000021D1FFCDF9BB3E00CD59BCC93E01 
3 1 0  DATA  CD59BC2A0C52 1 1 0400 1 9EB2A0E52CDC0BB 1 1 F8FF2 1 0000CDF9BB 1 1 04002 1 0400CDC3BB 
320  DATA  1 1 00002 1 F8FFCDF9BB3E00CD59BCC92 1 00C0 1 1 E8030 1 0040EDB0C92 1 E803 1 1 OOCOO 1 00 
330  DATA  40EDB0C9CD03BB3A07523CFE5020023E0047320752CD 1EBB28ED78CD2ABBC93A0652A7 
340  DATA  £01 02A0A520 1 900 1 2323ED42D009220A52C92A 1 2520 16101 2323373FED42D00922 1 £52 
350  DATA  C93A0652A7200C2AOA522B2BCB7CC0220A52C92A 1 2522B2BCB7CC022 1 252C93A0652A7 
360  DATA  ED4B 1 452200C2A0852ED42CB7CC0220852C92A 1 052ED42CB7CC022 1 052C93A0652A720 
370  DATA  1 32A0852ED5B 1 4520 1 8002 1 9ED42D009220852C92A 1 052ED5B 1 4520 1 3 1 02 1 9ED42D009 
380  DATA  £21 052C92A0E520 1 900 1 £3£3373FED4£D009££0E5£C9£A0E5££B£BCB7CC0££0E5£C9£A 
390  DATA  0C52ED4B 1 452ED42CB7CC0220C52C92A0C52ED5B 1 4520 1 8002 1 9ED4£D009220C5£C9ED 
400  DATA  5B08522A0A52CDEABBC9ED5B08522A0A52CDC0BBED5B0C522A0E52CDF6BBC9ED5B0852 
4 1 O  DATA  2A0A52CDC0BBED5B0C522A0A52CDF6BBED5B0C522A0E52CDF6BBED5B08522A0E52CDF6 
420  DATA  BBED5B08522A0A52CDF6BBC93A0652EEFF3206520 1 00C00BCB7820FBC906 1 8£A 1 252ED 
430  DATA  5B 1 052E5C5CDC0BB 1 1 4F002 1 0000CDF9BBC 1 E 1 2323 1 0E8C9640062 1 1 5E2257324D4040 
440  DATA  4D3257225E 1 1 620064462 100003E00B8C81 9 1 OFDO 164001 10000373FED423803 1 31 8F7 
450  DATA  EBC9E5ED5B0452CD587A220052E 123ED5B0252CD587A22FE51C92A0852ED4BFC5 1C92A 
460  DATA  0E52ED4BFA51 C9ED4B00522A0852C92A0E52ED4BFE5 1C9CD8C7A09EBC9CD8C7A373FED 
470  DATA  42EBC9CD947A09CDC0BBC9CD947A373FED42CDC0BBC9CD9C7A09EBC9CD9C7A373FED42 
480  DATA  EBC9CDA47A09CDF6BBC9CDA47A373FED42CDF6BBC92AO852ED5B0C52373FED5230061 1 
490  DATA  O 1 00EBED522204522A0A52ED5B0E52373FED5230061 10100EBED5222025221 447ACD74 
500  DATA  7A1 1467AD52A005222FC512AFE5122FA51EBCD747ACDAC7ACDBB7ACDCE7ACDDD7ACDB2 
510  DATA  7ACDBB7ACDD47ACDDD7ACDAC7ACDC37ACDCE7ACDE57ACDB27ACDC37ACDD47ACDE57AD1 
520  DATA  131 33E58BB20B7C9E DSB 14522 1 01 0037ED5222FA5D21000022F055ED5B0852ED53FA55 
530  DATA  2A0A5222FC55CDF0BB4732F255CDE 1 BBB8C8CDE4BB3AF 1 55CB7FC03E42CD 1 EBBC02AF0 
540  DATA  552B2B2B2B22F0550 1FE55095E2356234E2346ED53F455606922F655CDC0BBED5B 1 452 
550  DATA  £ 1 0000CDF3BB473AF255B828EFED5BFA5D210000CDC3BBCDC6BBED53F4551 1000021FE 
560  DATA  FFCDF3BB473AF255B828069732F955180D3AF955A720073C32F955CD627C1 100002104 
570  DATA  00CDF3BB473AF255B828069732F855 1 80D3AF855A720073C32F855CD627CED5BF A5D2 1 
580  DATA  FEFFCDF3BB473AF255B828A9ED5B 1 4522 1 0000CDC3BBED5BF4552AF655CDF6BB2 1 0000 
590  DATA  22F855C39F7B2AF05523232323CB5CC022F0550 1 FA5509E5CDC6BB444DE 1 732372237 1 
600  DATA  2370C92 1 F6BB22577CC36F7B2 1 947C22577CC36F7BD5CDC6BB3E02A53E0028033A 1 452 
6 1 O  DATA  £ 1 OOOOEBD 1 F5A73A 1 4524D28058 1 4F3A 1 452A 1 280BD5E5EB2AF655CDEABBE 1 D 1 F 1 373F 
620  DATA  ED52C8 1 9ED4B 145209 1 8D721 D97C22577CC36F7B3E02A5C8C3F6BB3E0 1 CD59BCC331 7F 
630  DATA  CDBDS3CDE 1 BBC3C27700CD03BBCD 1 8BBFE7 1 3007FE6 1 3803CDAD77C3 1 D7A0000000000 
640  DATA  CDBA78CDC9773E01CD6BBCCD4EBBCD6CBB21C274062A7ECD5ABB2310F9CD81BBCD03BB 
650  DATA  061021C05DCD18BBFE0D280777CD5ABB2310F23E109047CDFA7721C05D1 1D45DC9CD0B 
660  DATA  7DE5D5C5CDC67 8C 1 D 1 E 1 CD8CBC2 1 OOCO 1 1 00403E02CD98BCCDSFBCC9CD0B7DCD77BC2 1 
670  DATA  00C0CD83BCCD7ABC3E42CD1EBBC8CDC678G9 16303E09B8300778D60A 14471 8F47ACD5A 
680  DATA  BB78C630CD5ABB3E20CD5ABBC9CDBA78CDD777CD4EBBCD6CBB2 1 B674060C7ECD5ABB23 
690  DATA  1 0F93E61 CD5ABBF521 B27406087ECD5ABB2310F9F 1F5D66 1CD747ECD867D4 1CD867D3E 
700  DATA  0DCD5ABB3E0ACD5ABBF 1 3CFE7 1 20D22 1 A474060E7ECD5ABB23 1 0F9CDE 1 BBF5C66 1 CD5A 
710  DATA  BB21EC7406257ECD5ABB2310F9CD297E47C5CD297EC14FF1F5CDEC83F1CD32BCCDFA77 
720  DATA  CDC678C3 1 D7A3E1 1CD5ABB3EODCD5ABBCD81BBCD03BBCD18BBCD5ABBFE3A30E6FE3038 
730  DATA  E2D630A7280647AFC60A 1 0FC4FCD 1 QBBCD5ABBFE3A30CCFE3038C8D6308 1 F53E0DCD5A 
740  DATA  BB3E0ACD5ABBCD84BBF 1C9FE01 2005ED4B 1 952C9A72005ED4B 1 752C9C335BC2A784B 1 1 
750  DATA  4F0037ED521 1F74337ED52D83E0B18102A784B1 15000191 1 774B37ED52D03E0A37ED5A 
760  DATA  22784BC35ABB2A784BED5B 145£373FED5£1 1F74337ED52D83E08 1 8E 12A784BED5B 1 452 
770  DATA  191 1774B37ED52D03E0918CE3A145247CDE1BB2A784B772310FCCD90BB3E8FCD5ABB3E 
780  DATA  08C35ABB2 1 F8430 1 8007CDE 1 BB579772230BB820FAB920F77ACD96BBCD6CBB2 1 284B22 
790  DATA  784B2 1 1 80 1 C375BBCD03BBCD 1 8BBFE7 1 30F6FE6 1 38F2C3AD773E00CDE4BBED5B08522A 
800  DATA  0A52CDC0BBCD03BBCD2E84FE0DCA 1 D7ACDFCBB 1 8F 3CDE 1 BBF52 1 OOOOE5 1 1 0000D5E5D5 
810  DATA  CDF0BBD1C1F5C5D521900137ED42CDF0BBD1E1E5D5CDDEBBCDEABBD1C121900137ED42 
820  DATA  F 1 CDDEBBCDEABBD 1 2A 1 452 1 9545D0 1 7F0237ED42E 1 E538C2E 1 2323545D0 1 C70037ED42 
830  DATA  EB38B0F 1 C3DEBBCDE 1 BBF5 1 1 00002 1 0000D5E5D5E5CDF0BBC 1 D 1 F5D5C52 1 S00237ED52 
840  DATA  EB6069CDF0BBE 1 D 1 D5E5CDDEBBCDEABBC 1 D 1 2 1 800237ED52EB6069F 1 CDDEBBCDE ABBE 1 
850  DATA  2323ES0 1 QFO 1 37ED42E 1 D 1 38BE2A 1 452 1 9545D0 1 3F0 1 37ED4238ADF 1 C3DEBB2A085222 
860  DATA  28502A0A52222A502 1 948E222AA006FA360023360023 1 0F8CD03BBCDE380CD 1 8BBF5CD 
870  DATA  E380F 1 FEODC80000F5FE3 1 CC9B802002F 1 C9F 1 F5FE88CCF378F 1 F5FE82CC 1 B79F 1 F5D6 
880  DATA  84CC3779F 1 F5FE86CC5B79F 1 F5D68 1 2006CD3779CD 1 B79F 1 F5FE832006CD 1 B79CD5B79 
890  DATA  F 1F5D6872006CD3779CDF378F1F5FE892006CDF378CD5B79F1F5FE70CCF27CF 1 189000 
900  DATA  OOOOCDE 1 BB2A2AA07723E52A0852ED5B2850222850373FED52EBE 1 73237223E52A0A52 
910  DATA  ED5B2A50222A50373FED52EBE 1 73237223222AA0E5ED5B08522A0A52CDEABBE 1 1 1 8790 
920  DATA  37ED52C9CDE1BBF53E01CDDEBBCD1978F1CDDEBBC9CDE1 BBF5ED5B08522A0A52CDC0BB 
930  DATA  £ 1 948E7ECDDEBB235E2356234E234623E56069CDEDBBE 1 E5ED5B2AA0373FED52E 1 38E0 
940  DATA  F 1 CDDEBBC9CD03BBCD 1 8BBFE302008 1 1 28A02 1 A08C 1 86BFE3 1 2008 1 1 2AA02 1 948E 1 85F 
950  DATA  FE322008 1 1 2CA02 1 8890 1 853FE332008 1 1 2EA02 1 7C92 1 847FE342008 1 1 30A02 1 7094 1 8 
960  DATA  3BFE352008 1 1 32A02 1 6496 1 82FFE362008 1 1 34A02 158981 823FE372008 1 1 36A02 14C9A 


CHRLLGNGE 


970  DOTO  1 a 1 7FE382008 1 1 38002 1 409C 1 80BFE39C0 1 1 30002 1 349E000022 1 68022038 1 0 1 F30 1 09 
980  DOTO  22DD80EB22 1 980229F8022CE8022 1 C8 1 97C9CD208 1 CC0980C3 1 D70CD208 1 CCF480C3 1 D 
990  DOTA  70CD0B7DE5D5C5CDC678C 1  DIE 1 CD8CBC21008C 1 19C133E02CD98BCCD8FBCC9CD0B7DE5 
1 000  DOTA  D5C5CDC678C 1 D 1 E 1 CD77BC2 1 008CCD83BCCD70BCC9CDE 1 BBF52 1 F84322784BO 1 2F0020 
1 O 1 O  DOTO  1 2520906 1 8C5ED5B 1 0520650C5E5D5CDF0BB2O784B772322784BD 1 E 1 C 1 1 3 1 OECC 1 2B2B 
1020  DOTA  1 0E03 1F84 322784 BO 12F00200E520906 18C5ED5B0C520650C5D5E520784B7E2322784B 
1 030  DOTO  CDDEBBE 1 E5CDEABBE 1 D 1 C 1 1 3 1 0E7C 1 2B2B 1 ODBF 1 C3DEBBED5BOC522OOE52CDF0BB32F2 
1 040  DATO  55CDE 1 BBF520 1 25206 1 8C5ED5B 1 0520650C5D5E5CDF0BB4730F255B82007E 1D1D5E5CD 
1 050  DOTO  EOBBE 1 D 1 C 1 1 3 1 0E6C 1 2323 1 ODOF 1 C3DEBBCD 1 1 BCD8F53D32 1 652F5CDB078CD0EBCCDC6 
1 060  DOTO  78F 1 3C473E08CB3F 1 0FC32 1 452F 1 2 1 00C02028 1 E00563EC0022802CBFB3E30022802CB 
1 070  DATO  F33E0C022802CBDB3E03022802CBD37323CB7C20DBC3B083 1 E00563EC0022802CBFB3E 
1080  DATO  30022802CBF33E0C022802CBEB3E03022802CBE37323CB7C20DBC3B083CD 1 1 BC280 1 DO 
1 090  DOTO  F53C32 1 652F5CDB078CD0EBCCDC67QF 1 3C473E08CB3F 1 0FC32 1 452F 1 2 1 00C03830 1 EOO 
1100  DOTO  563E88022804CBFBCBF33E44022804CBEBCBE33E22022804CBDBCBD33E1 1A22804CBCB 
1110  DOTO  CBC37323CB7C20D3C3B083 1E00563EA0A22804CBFBCBF33E50022804CBEBCBE33E0002 
1 120  DOTO  2804CBDBCBD33E05022804CBCBCBC37323CB7C20D3301052E6FC32 1 0523E62C30D7730 
1130  DATO  1 652C30EBC2 1 00C00608C50 1 8007 1 1 D45DE5EBEDB0E 101 000809C 1 10EDC9CDC977216E 
1140  DOTO  7406367ECD50BB23 1 0F9C9FE0 1 2005ED43 1 952C907C0ED43 1 752C93E0 1ED4B1 952CD32 
1150  DOTA  BCC3F077 1 1 700 1 2 1 FC06CDCBBCC3DC833E8FCDFCBB30 1 452CB27CB27CB27D60 1 2F5F 1 6 
1 1 60  DOTA  FF2 1 0000C3C3BBCD 1 484CD 1 8BBF5CD 1 484F 1 C9 
1170  DOTO  END 

INSTRUKTIONER  TIL  TEGNEPROGRAM. 

To  cursors  befinder  i  begyndelsen  i  nedre,  venstre  hjørne,  en  stor  og  en 
lille.  Den  store  kan  skiftes  ud  med  en  ramme. 


VED  HELHEDSBILLEDET  VIRKER  FLG.  TASTER: 

Numerisk  tastatur  (1-9  undtagen  5):  Styrer  den  store  cursor/rammen. 

Pilene:  Styrer  den  lille  cursor. 

ENTER:  Skifter  mellem  ramme  og  stor  cursor. 

COPY:  Forstarrer  ramme-område. 

Is  Plotter  på  stor  cursor’ s  position. 

2:  Tegner  linie  mellem  de  to  cursors. 

3:  Tegner  en  kasse  hvor  de  to  cursors  beskriver  diagonalen. 

4:  Tegner  en  ellipse.  Stor  cursor  angiver  hajden,  lille 

cursor  angiver  bredden. 

5:  Fylder  lukket  område  ud  med  aktuel  farve. 

6:  Som  5.  men  stiplet. 

7:  Som  5.  men  stribet. 

8:  Fylder  rammeområdet  ud  med  aktuel  farve, 

q:  Slut  tegning.  Som  sikkerhed  skal  der  trykkes  to  gange, 

t:  Tekst-mode.  Herefter  kan  der  skrives  tekst.  Farste  bog¬ 

stav  placeres  på  stor  cursor’ s  position, 
p:  Pen-farve  valg.  Efter  p  trykkes  på  a-p  for  farven, 

f:  Farve  definering.  Den  aktuelle  pen-'-farve  kan  defineres 

til  en  af  farverne  fra  0-26  (se  manualen), 
e:  Erstatter  farve  i  ramme— området  med  aktuel  pen-farve. 

Den  lille  cursor  skal  placeres  på  farven,  som  skal  ud- 
ski ftes. 

c:  kopierer  ramme-området  til  den  lille  cursor.  Den  lille 

cursor  svarer  til  rammens  nederste,  venstre  hjerne, 
h:  Spejler  billedet  horisontalt, 

v :  -  -  vert  i kalt . 

o:  Sætter  MODE  en  gang  op  men  bibeholder  billedet, 

ns  -  -  -  ned  -  -  - 

d:  Definering  af  grafiktegn.  Skal  efterfølges  af  et  tal 

(0-9).  Definering  foregår  med  nurn.  tastatur,  pen-farve¬ 
valg  og  plot.  ENTER  returnerer  fra  definering, 
g:  Udplotning  af  grafiktegn  ved  stor  cursor.  Skal  efterføl¬ 

ges  af  0-9. 

s:  Save  af  skærmbilledet, 

as  -  -  grafiktegnene. 

Is  Load  af  skærmbilledet, 

k:  -  -  graf iktegnene. 

VED  FORSTORRET  BILLEDE  VIRKER  FLG.  TASTER: 

Numerisk  tastatur:  styrer  cursor. 

COPY:  Returnerer  til  helhedsbilledet. 

Is  Plotter  på  cursorens  position. 

8:  Fylder  skærmen  (dvs.  ramme-området )  ud  med  aktuel  farve, 

q:  Slut  tegning.  Sikkerhed:  Der  skal  trykkes  to  gange, 

p:  Pen-f arve-val g  (a-p). 
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CHRLLENGE 


PC  og 


kompatible 


Anti-break 


Her  er  en  nyttig  rutine  til  dig.  der 
programmerer  i  BASIC  A.  Rutinen 
kører  på  IBM  PC  og  de  fleste  kom¬ 
patible. 

Put  den  ind  i  et  program,  så  kan 
programmet  ikke  breakes.  For  at 
få  programmet  'ubeskyttet'  mod 
pilfingre  igen.  skal  du  sætte  ruti¬ 
nen  ind.  som  hedder  Go  Back  to 
Normal. 
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PGKE 
PCiKE  109,253 
PGKE  i  10, O 
PGKE  1 1 1 , 240 
I) EF  SE6 

REM  ***  go  back 
to  norms  1 
DEF  BEG— O 
PGKE  108, C 
PGKE  109, D 
PGKE  110, E 
PGKE  1  1  .1.  ,  F 
DEF  BEG 


... 


nern 


n  stikl* 


DET  TYKKE  TILBUD: 


Tegn  abonnement  på  Danmarks 
største  program-bibliotek . . . 


”TAST”  er  Danmarks  største  taste-ind  blad. 
Et  sandt  bibliotek  af  spændende  kvalitetsprogrammer, 
der  nu  udkommer  fast  hver  tredie  måned. 

Tegn  abonnement  NU!  Ikke  bare  er 
det  den  billigste  løsning,  men  du  får  også 
bladet  bragt  til  døren  -  gerne  34  dage  før 

det  udkommer. 

Et  helt  år  koster  bare  122  kroner.  Eller  omkring 

en  krone  pr.  program  ... 

SEND  KUPONEN  IDAG! 


Ja  tak,  lad  mig  tegne  abonnement 
på  "TAST”  i  et  år  (4  numre). 

Jeg  har:  Indsat  kr.  122,-  på  giro  9  40  60  77  □ 
Vedlagt  en  check  på  kr.  122,-  □ 

Navn _ 

Adresse. 

Computer: 

Sendes  til: 


Xx 


